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SECTION 1 
MEET THE AP AGAIN 



1.1 INTRODUCTION 

The purpose of this manual is to illustrate the way. to use the 
AP most ef f iciently, i. e . , to write good loops. It assumes that 
the reader has already read the Processor Handbook (especially 
Section 3) and the Software Development Package Manual (APAL, 
Sections 2 and 3), and has at least a passing acquaintance with 
the AP instruction set. 

The first section presents a short review of the basic elements 
of the Array Processor from the programmer's point of view. 
The second section covers methods and techniques of writing loops. 
The third section consists of a set of common pitfalls to avoid. 

The review in this section of the basic AP instructions is not 
meant to be all-inclusive. It is intended to briefly cover 
the most-often-used things. Further details can be found in 
the other manuals. 

This manual assumes the use of the AP's 333ns interleaved memory. 

1.2 BASIC OVERVIEW 

1.2.1 Arithmetic. Both the Floating Adder and Floating Multiplier 
need explicit instructions (e.g., FADD and FMUL, respectively) to 
push their respective answers out of the pipelines. Given these 
"pushers", the Floating Adder result (FA) will be available 2 
cycles after the original instruction, and the Floating Multiplier 
result (FM) will be available 3 cycles after the original instruction': 

0. FADD DPX,DPY "add 

1. FADD "push 

2. DPX(1)<FA "store answer 

The empty FADD and FMUL "pushers" can also be real Adder or 
Multiplier operations, thus producing new answers each cycle. 

If the "pushers" do not directly follow the original instructions, 
FA will come out 1 cycle after the first FADD pusher, and FM will 
come out 1 cycle after the second FMUL pusher. Both FA and FM will 
remain available for succeeding cycles until a new FA or FM is 
pushed out . 

The arguments for Adder and Multiplier instructions consist of one 
from column A and one from column B, (in that order): 



0. 


FMUL DPX,DPY 


"multiply 


1. 


FMUL 


"push 


2. 


FMUL 


"push 


3. 


DPY(1)<FM 


"store answer 



COLUMN A (Al or Ml) 



FM 



TM 

DPX 

DPY 



COLUMN B (;\2 or M2) 

' FA ' 
MD 
DPX 
DPY 



1 -1 



The Adder has additional arguments of ZERO and NC (no change), which 
can be used in either or both columns. 

1.2.2 Main Data Memory. Reading from memory requires one of the 
following instructions: SETMA, INCMA, DECMA, or LDMA. In practice, 
it is usually done by the SETMA instruction. The result, MD, comes 
out three cycles later and is also available for succeeding cycles 
until a new MD comes out. No "pushers" are needed.. Writing into 
memory requires one of the above instructions plus MI<source, where 
source is FA, FM, or DB. This goes on the same line as SETMA, and 
gets done in that cycle. Memory can be referenced every 2 cycles, 
for either a read or write. 

1.2.3 Table Memory. Table memory is usually referenced by the 
SETTMA or LDTMA instruction. Two cycles later, TM is available 
and remains so until 2 cycles after the next instruction affecting 
TMA. Such instructions can occur in every cycle, producing a new 
TM every cycle. 

1.2.4 Data Pad. DPX and DPY each contain 32 registers, S of which 
are accessible from any given DPA. That is, one can reference DPX 
from DPX(DPA-4) to DPX(DPA+3), and similarly for DPY. 

The Data Pad Bus is usually used to store data from memory or from 
one Data Pad register into another, or to utilize a value, e.g., 
in conjunction with a load operation: 

DPX(1)<DB; DB==DPY(-2) (This can be shortened to 

DPX(l)<DPY(-2). ) 

DPX<D3; DB=MD (Or DPX<MD) 

LDDPA; D3=3 (This sets DPA=3) 

Storing into Data Pad from FA or FM does not use the Data Pad Bus. 
This is important, as it leaves DB free for other uses. 

1.2.5 S--Pad. S-Pad registers are usually used as address pointers 
or counters, and thus to pass parameters to a program. An S-Pad 
operation must accompany a SETMA (or SETDPA, SETTMA, etc.) 
instruction. An S-Pad operation must also precede a conditional 
branch (BGT, BNE , etc.) by one cycle. That is, conditional 
branches are based on the S-Pad Function (SPFN) of the S-Pad 
operation in . the previous cycle. 

The fastest way to get an integer into S-Pad is to use the LDSPI 

instruction: , LDSPI COUNT; DB=5 

This puts 5 into an S-Pad register called COUNT. The value is 

assumed to be octal unless a decimal point is added. 

DB=15. (note point) is equivalent to DB=17 (octal), or to 

DB=^FX (hex). Hexadecimal numbers must start with a numeric digit 

and end with "X" . 

Although the Floating Adder operation FSUB A1,A2 will do A1-A2, the 
S-Pad operation SUB subtracts in the opposite direction, i.e., 
SUB PIECE, TOTAL will do: 

(contents of S-Pad TOTAL) minus "( contents of S-Pad PIECE). 
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1.3 REFERENCING MEMORY 

In order to read something out of memory, or write into it, the 
location in memory where this will occur must be provided. The 
SETMA instruction gets this necessary information from the S~Pad 
Function (SPFN) of the same cycle. Therefore, one needs to 
construct an S-Pad operation which will result in a pointer 
to the appropriate memory location. Generally this takes the 
form of adding increments to pointers. For example, if there 
was a 4-element vector in memory locations 100, 102, 104, 106, 
one would need an S-Pad register (say, APTR) containing the . 
base address (100), and another S-Pad register (AINC) containing 
the increment between elements (2). Then, if one wanted to read 
the element in location 102, the appropriate instruction would be 
ADD AINC, APTR; SETMA. Now APTR would contain 102. If one wrote 
another ADD AINC,APTR; SETMA the contents of memory location 104 
would be read. 

Consider the following instruction: MOV APTR, APTR. This doesn't 
seem to accomplish much, but in the light of the above discussion, 
it can be seen that its SPFN could be useful for a SETMA. This 
is how one would get the first element of a vector. 

All of the above is correspondingly true for writing into memory. 

1.4 S-PAD MNEMONICS 

S-Pad names such as APTR, AINC, N are really only temporary names 
for the 16 S-Pad registers. A statement such as DEC N will not 
mean anything to the assembler unless the program has equated 
the mnemonic "N" with a specific S-Pad register, such as S-Pad 
0. This is done by the following assembler pseudo-op: N $EQU 0. 
All S-Pad names used in a program must be declared in this 
manner before using them in an instruction. Thus, programs 
generally begin with lists like: 

APTR $EQU 
AINC $EQU 1 
BPTR $EQU 2 
. BINC $EQU 3 
N ■ $EQU 4 



These S-Pad numbers should not be confused with the contents of the 
S-Pads. ADD BINC, BPTR would not add 3 to 2 (using the above list), 
but would add the contents of S~Pad 3 to the contents of S-pad 2. 

There can be more than one name for an S-Pad register. If you 
had 2 different vectors, A and B, and wished to use the mnemonics 
AINC and BINC for their increments, you could use the same S-Pad 
register if the increment for both is the same in all cases, by 
declaring: 

AINC $E(5U 1 . 
BINC $EQU 1 ■ 
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1.5 OTHER PSEUDO-OPS 

Besides the $EQU pseudo-op, the typical program includes $TITLE and 
$ENTRY pseudo-ops at the very beginning, and an ijjEND at the very 
end. A basic program with one loop would have the following form: 



S-Pad mnemonic 



$TITLE name 
$ENTRY name 
$EQU 
1 
2 



name: (code) 



("intro" to loop and any initializations 
V. and pointer adjustments) 



loop: (code) 



$END 
See the software manual for explanations of these pseudo-ops 



1-4 



SECTION 2 
LOOPS 



2.1 A POOR LOOP 

The loop is where the potential of the AP comes into full bloom 
For example, one way (lengthy but workable) to write a dot 
product program is as follows: 

Given: Vectors A and B in Main Data memory, with elements of 

each vector in equally spaced locations in memory (e.g. 
even-numbered locations). 

Produce : N 

m=l 

Parameters passed in S-Pad: 

S-Pad Name Contains: 



APTR base address of vector A 

BPTR base address of vector B 

XINC increment (number of locations from one 

element to the next) (same for both vectors) 
N number of elements in each vector 

CPTR address of answer 

DOTPROD:SUB XINC, APTR ( *see below) 

SUB XINC, BPTR (*see below) 

FADD ZERO, ZERO "initialize FA=0 

FADD 
LOOP: ADD XINC, APTR; SETMA "get mth element of vector A 

NOP " from memory 

NOP 

DPX<MD "MD=Am. store into DPX 

ADD XINC, BPTR; SETMA "get mth element of vector B 

NOP 

NOP 

FMUL DPX,MD "MD=Bm. do Am . B^ 

FMUL 

FMUL 

FADD FM,FA "add product to sum of products 

FADD ' 

DEC N "decrement counter 

BGT LOOP "branch back if not done yet 

"(i,e.ifN>0) 
DONE: MOV CPTR, CPTR; SETMA; MI<FA 

"otherwise, store answer 

*This is so that the first time through the loop, ADD XINC, APTR and 
ADD XINC, BPTR will not move the pointer to the second element, 
passing up the first altogether. 
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To begin with, this program can certainly be shortened by combining 
instructions and overlapping memory fetches. Thus: 



DOTPROD 
LOOP : 



DONE 



get A 



FADD ZERO, ZERO; SUB XING, APTR 

FADD; SUB XINC,BPTR 

ADD XING, APTR; SETMA 

NOP 

ADD XING,BPTR; SETMA 

DPX<MD 

NOP 

FMUL DPX,MD 

FMUL 

FMUL 

FADD FM,FA; DEG N 



m 



"get B^ 
"store A 



m 



in DPX 



"do Ain-Bm 



FADD; BGT LOOP 



"add prod to sum of products 
" and decrement counter 
"test if done. If not, branch 
" to LOOP 

MOV GPTR,GPTR; SETMA; MI<FA 

"if so, store answer 



Note the extra FMUL' s and FADD ' s , described as "pushers." These 
push the answers through the pipelines, so that FM and FA will 
contain what they are intended to contain. This is pointed out 
because the beginning AP programmer is likely to forget to put 
"pushers" in his code. 

Now the loop of the evolving dot product program is 10 cycles long 
This means that each new pair of elements costs 10 more cycles. 
Although better than the initial example, which had a 14-cycle 
loop, this can actually be cut down to a mere 4 cycles! 
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2.2 DETERMINING LENGTH OF LOOP 

One might suppose that the length of a program loop depends on 
what one is trying to do. This is true, but not in the way one 
would think. The AP programmer decides ahead of time how many 
cycles his loop should contain, and then fits everything into 
that framework. How does he pick the magic number?- Most 
commonly, loops are memory-limited. Recall that one can reference 
memory (to read or to store) every 2 cycles. If one has 2 memory 
references to do (e.g., "get A" and "get B"), then the loop will 
be at least 4 cycles long (2 per memory reference) . And, unless 
one has more than 4 different FMUL's, 4 different FADD.'s, or 4 
different S-Pad operations to do, the loop should be, at most, 4 
cycles. A lot can be done in 4 cycles when one can do a Floating 
Multiplier operation, a Floating Adder operation, an S-Pad 
operation, a branch, a memory reference, a Data Pad Bus transfer, etc 
in each cycle. 

2.3 vVRITING A REAL ME.MORY-LIMITED LOOP 

Before continuing with the transformation of the dot product 
program, another example will be utilized. 

Given: Vectors A and B in Main Data memory, length=N elements 
Produce: Vector C (in memory), where 

C =A^+B for m=l to N 
m m m 

Parameters: S-Pad Name Contains 

APTR base address of A 

BPTR base address of B 

CPTR base address of C 

XING increment (same for all vectors in this 

example) 
N number of elements 

Note that there should be 3 memory references in the loop: "get A", 
"get B", and "store G". (Unlike the dot product which accumulated' 
a running sum in the Adder, this program needs to store an answer 
after each set of computations. For the dot product, storing was 
not a repeated process," and hence not included in its loop). Three 
memory references, one every other cycle, means the loop would be 
6 cycles long. It would start like this: 

1) — -(nothing here, but count a cycle) 

2) ADD 'XING, APTR; SETMA "get A 

3) — 

4) ADD XING, BPTR; SETMA "get B. 

5) DPX<MD "store A in DPX 

6) FMUL DPX,MD "do A*A 

(The reason for starting on the second line will be explained later . ) 
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Now it has run out of cycles, but there is still more to do, so it 
starts back up at the first cycle, which is where the end will 
branch to, when it gets around to testing if it's done. 



LOOP : 


1) 







1'" 


FMUL 




"B is available here, 
"not. needed yet 


but 




2) 


ADD XINC,APTR; 


SETMA 


1 

1 


FMUL 




3) 







1 
1 


FADD 


FM , MD 


"add B to A2 






4) 


ADD XINCBPTR; 


SETMA 


1 
1 


FADD 



5) DPX<MD 



DEC N 



6 ) FMUL DPX , MD 



"answer is available here 
"but can't reference mem. 
'vet to store it 



I ADD XINCCPTR; SETMA; MI<FA; 
BGT LOOP "store answer and 
. . "tegt i,f dQHQ 



This is the entire loop. In its proper form, taking out lines and 
adding semicolons, it looks like this: 

LOOP: FMUL 

ADD XINC,APTR; SETMA; FMUL 

FADD FM,MD 

ADD XINC,BPTR; SETMA; FADD 

DPX<MD; DEC N 

FMUL DPX,MD; ADD XINC,CPTR; SETMA; MI<FA; BGT LOOP 



2.4 WRITING INTROS 

Notice, however, that if the p 
after initial overhead such as 



it p 
but 
deer 
at t 



icks up 
it also 
ements 
he same 



the f 

store 

the CO 

time . 



m t 
way 
in t 
was 
bef o 



he seco 
it can 
he prev 



nd col 
do thi 
ious t 



no prev 
re gett 



ious t 
ing in 



irst el 
s somet 
unter t 

What 
umn con 
s is to 
ime thr 
ime . H 
to the 



ement 
hing i 
oo ear 
is des 
t inue 

conti 
ough t 
ence t 
loop . 



rogram goes right into this loop, 

SUB XINC,APTR 

SUB XINC,BPTR 

SUB XINCCPTR 
of A and 6 as it's supposed to, 
nto C before it's ready to, and 
ly . It goes through both columns 
ired, however, is that computations 
from the first column. The only 
nue from what the first column did 
he loop. And the first time, there 
he need for additional microcode 



Exactly what needs to go before the loop? In order for the second 
column of the loop to be doing what it's supposed to when the 
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program gets to it, the first column must precede it. Essentially, 
one rewrites the first column as an "intro" to the loop. Thus: 



PROGRAM 



LOOP: 

ADD XINC,APTR; . SETMA; 

ADD XINCBPTR; SETMA; 

DPX<MD; 

FMUL DPX,MD; 

DONE : RETURN 



MOV APTR,APTR; SETMA "get first element 

"of A 



SUB XINC,CPTR 

MOV BPTR,BPTR; SETMA 

DPX<MD 

FMUL DPX,MD 

FMUL 

FMUL 

FADD FM,MD 

FADD 

DEC N 



"to offset ADD in loopi 

"get first element 

"of B 

"store A(l) in DPX 

"do A(l)2 

"get A(m+1) 
"do A(m)^+B(m) 
"get B(m+1) 
"store A(m+1) 



ADD XINC,CPTR; SETMA; MI<FA; BGT LOOP 

"do A(m+1) , store 
"C(m), test if done 



To clear up a loose end regarding the structure of memory-limited 
loops, one might notice that since the branch must be in the last 
cycle, the DEC N instruction must be in the second-to-last cycle. 
DEC is an S-Pad operation and cannot be in the same cycle as another 
S-Pad operation, such as ADD XINC,XPTR. A memory-limited loop has 
SETMA's (requiring S-Pad operations) on every other line. Since the 
DEC N operation will go on an odd-numbered line of the loop, the 
SETMA's must go on even-numbered lines. This is why the first 
thing to do, ADD XINC,APTR; SETMA (see section 2.3), was put on line 2. 
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2.5 A DOT PRODUCT PROGRAM 

It is now possible to write the 4-cycle dot product , Using the 
technique outlined above, the loop should be constructed as follows 



1) 


— — — 






2) 


ADD XINC,APTR; 


SETMA 


"get A 


3) 


— — 






4) 


ADD XINC,BPTR; 


SETMA 


"get B 



then 



f* \j 



v. 







■ I ■ 

1 


DPX<MD 


"store A 


p) 


ADD 


XINC,APTR; 


SETMA • 
1 


■ 


3) 


—— — 




1 


FMUL DPX,MD 


"do A-B 


i) 


ADD 


XINC,BPTR; 


SETMA . 


FMUL 





then 













" ' \ 




" ' -.a 




1) , 


_ __ 








j DPX<MD 

i 




FMUL 


2) 


ADD 


XING 


APTR; 


SETMA 1 


, ___ 


1 


FADD FM,FA 


"add A -B to sum of 
"products 


3) 











1 FMUL DPX 

! 


,MD^ 


FADD ; DEG N ' 


"decrement counter 


:4) 


ADD 


XING 


BPTR; 


SETMA / 


! FMUL 
\ 


^ 


jBGT LOOP 

1 


"test if done 



The intro to this 3-column loop will consist of the first column 
alone, then the first and second column together. Other overhead, 
such as initializing FA to 0, can be mixed in with the intro. 

To generalize, an N-column loop would require an intro consisting 

of column 1 followed by columns 1 and 2 together, followed by columns 

1, 2, and 3 together.... followed by columns 1, 2,..,N-1 together. 
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$TITLE DOTPROD 
$ENTRY DOTPROD . 

APTR $EQU 

BPTR $EQU 1 

CPTR $EQU 2 

XING $EQU 3 

N $EQU 4 

DOTPROD: MOV APTR, APTR; SETMA; FADD ZERO, ZERO 

MOV BPTR, BPTR; SETMA; FADD 

DPX<MD 

ADD XINC, APTR; SETMA ' 

FMUL DPX,MD 

ADD XINC, BPTR; SETMA; FMUL 
LOOP: DPX<MD; FMUL 

ADD XINC, APTR; SETMA; FADD FM,FA 

FMUL DPX,MD; FADD; DEC N 

ADD XINC, BPTR; SETMA; FMUL; BGT LOOP 
DONE: MOV CPTR, CPTR; SETMA; MI<FA; RETURN 

■:end 



"get A(l) and. 
"initialize FA=0 
"get B(l) 

"store A(l) 

"get A(2) 

"do A(1)*B(1) 

"get B(2) 

"store A(n+1) 

"get A(m+2), add 

"A(m)B(m) to sum 

"do A(m+l)B(m+l) 

"decrement counter 

"get B(m+2) , test if 

"done 

"if so, store answer 



Now each new pair of elements will only cost 4 more cycles, because 
every 4 cycles a new pair are being fetched; every 4 cycles another 
product is added to the sum. The longer overhead is no disadvantage 
as it is only done once, and even if the program was called with N 
containing 1, making the streamlined loop unnecessary, it takes no 
longer than the unstreamlined program. 

Note that there are 2 SETMA ' s in a row at the beginning and again 
at the end of the program. This will not cause any problems except 
to make memory spin, which is the memory's way of putting 
in the NOP's the programmer leaves out. The timing is still the 
same, and this way there are 2 less locations of Program Source 
used up. 

It might be mentioned that if one were getting Vectors A and B out 
of Data Pad instead of memory, the dot product could be written 
with a 1-cycle loop! This will be demonstrated later. 
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2.6 NOTATION 

A few words about notation are in order. The "-■ — " used when 
writing loops in column form simply denotes a blank spot, 
indicating a cycle goes by while awaiting the results of a 
memory fetch or while looking for a more propitious' spot to use 
the results of the Adder or Multiplier, etc. Normally, something 
else will eventually go on the same line, in a different column. 

Example: This takes vector A, multiplies it by a constant in 
DPX, and stores it in vector B. 



1) 
2) 
3) 
4) 



ADD XINCAPTR; SETMA 



FMUL DPX,MD 

FMUL 

FMUL; DEC N 

ADD XINCBPTR; SETMA; MI<FM; BGT LOOP 



Since the length of the loop was already decided by the number of 
SETMA' s, these blank spots cause no harm to the speed. It is 
the number of cycles in the loop, not the number of columns, which 
determines speed. Extra columns simply mean longer intros, which 
the program only goes through once anyway unless it's part of a 
nested loop. 

In loops with several Adder or Multiplier operations, it often 
happens that one such instruction will be a "pusher" for another 
in another column. 



1) 


(code) 


2) 


" FMUL DPX, DP Y 


3) 


" FMUL 


3) 


" FMUL 


5) 


" DPX(1)<FM 


6) 





FMUL DPY,MD (code) 

FMUL 
FMUL 
DPY<FM 



In column 2, lines 2 and 3 are illegal, as those lines already 
contain FMUL's (which, will do the pushing for column 2 as well 
as column 1). However it may be advantageous to the 
programmer to note to himself somehow that FMUL's do belong there, 
in case things in the first column get moved around for some 
reason. This is the purpose of, such notation as (fmul) or (fadd). 
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Thus 



1) 


(code) 


2) 


" FMUL DPX,DPY 


3) 


" FMUL 


4) 


" FMUL 


5) 


" DPX(1)<FM 


6) 


If 



FMUL DPY,MD 
(fmul) 
( fmul ) 
DPY<FM 



(code) 



Now, if pieces of the first column were moved down a couple 
of lines for some reason, 



1) 


(code) 




^) 






3) 






4) 


" FMUL 


DPX,DPY 


5) 


" FMUL 




6) 


" FMUL 





FMUL DPY,MD (code) DPX(1)<FM 

(fmul) 

( fmul ) 

DPY<FM 



the programmer would be reminded to put real FMUL 'S' back on 
those lines. 

When writing loops with a small number of cycles, these reminders 
can also help one keep track of the columns, as in : 



ADD XINC,APT.R; SETMA 



-' DPY<MD , FMUL 
- : FMUL DPY,MD, ; (fmul) 



FADD FM,FA; DEC N 
FADD; BGT LOOP 



This gets a vector from memory, squares each element and adds the 
squares together (sort of a dot product between vector A and itself) 
The seemingly empty columns, which disappear when the loop is 
written in proper form (see below), are necessary in order to write 
the intro properly. If one left out the second column, for example, 
his intro would start with: 



MOV APTR,APTR; SETMA 

DPY <MD 

ADD XINCAPTR; SETMA; FMUL 



DPY,MD 



Clearly, the first MD will not be the first element fetched. By 
the time it gets down to FADD FM,FA in the loop, something which 
doesn't belong will be added in. 
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This is what the intro and loop sbould look like: 

MOV APTR,APTR; SETMA 

FADD ZERO, ZERO "initialize FA=0 

ADD XING, APTR; SETMA; FADD 

DPY<MD 

ADD XING, APTR; SETMA; FMUL DPY,MD 

DPY<MD; FMUL 

ADD XING, APTR; SETMA; FMUL DPY,MD 

LOOP: DPY<MD; FMUL; FADD FM, FA; DEG N 

ADD XING, APTR; SETMA; FMUL DPY,MD;. FADD; BGT LOOP 

( answer) < FA 
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2.7 DROPPING OUT ONE EARLY 



1) 
2) 
3) 
4) 
5) 
6) 
7) 
8) 



ADD XINC,APTR; SETMA 

(code) 

ADD XINC,BPTR; SETMA 

(code) 



( code ) 



(code) 



ADD XINC,CPTR; 
(code) 



SETMA 



DEC N 
ADD XINC,DPTR; 



SETMA ; 



MI<DPX: BGT LOOP 



Here, there are 2 memory reads in the first column, one read in the 
second column, and a store in the last column. When writing the 
intro, the pointers should be taken care of as follows: 



MOV APTR,APTR 
SUB XINCDPTR 
MOV BPTR , BPTR 
(code) 



SETMA 

(code) 

SETMA 



ADD XING, APTR; SETMA; (code) 
(code) .. 

ADD XING, BPTR; SETMA; 
(code) 

MOV GPTR,GPTR; SETMA 
" (code) 



If the memory reference in the second column of the loop was a 
store instead of a read, the problem would become more complicated. 
By the time the counter went down to zero and the last result was 
stored at DPTR, an extra G would have been stored, possibly over 
a valuable piece of data, such as the beginning of vector D. Or 
if instead of ADD XlNG.GPTR; SETMA; MI<DPY in the second column, 
we had ■OPY<FA (where FA is cumulative; as in the dot product) and 
later stored DPY into GPTR after getting out of the loop, an extra 
FA would have been computed and DPY would contain an incorrect 
answer. In this case, it would be wise to drop out of the loop 
one time early. One would put an extra DEG N somewhere in the 
intro, so that the loop would be done N-1 times. Then, after the 
loop, write just the last column (not including DEG and the branch, 
of course), which is all that remains to be done from the loop 
anyway . 
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Example: This does a dot product of vectors A and B, and also 
outputs the square of each updated sum into vector D. 



ADD XINCAPTR; SETMA 

ADD XINC,BPTR; SETMA 
DPX<MD 



FMUL DPX,MD 

( f mul ) 

FMUL 

FADD FM,FA 

FADD 

DPY<FA 



FMUL DPY,DPY 
( fmul) 
FMUL 
DEC N 

ADD XINCDPTR; SETMA; MI<FM; 
BGT LOOP 



When it is going through the loop for the last time and storing 
the very last thing in D( column 3), it is also simultaneously 
doing extra executions of columns 1 and 2 . Normally, that doesn't 
matter, but in this case, something extra is being added to the 
cumulative sum of the dot product (column 2), which was completed 
the previous time through the loop. By dropping out of the loop 
before its last time around, this error is avoided: 



MOV APTR,APTR; SETMA 

DEC N . 

MOV BPTR,BPTR; SETMA 

DPX<MD • 

SUB XINCDPTR 



"to cause dropping out early 

"to nullify the first ADD XINCDPTR 



ADD XINCAPTR; SETMA; 

ADD XINCBPTR- SETMA; 
DPX<MD; 



FMUL DPX,MD 

FMUL 

FMUL 

FADD FM,FA 

FADD 

DPY<FA 



LOOP: 

ADD XINCAPTR; SETMA 

ADD XINC,BPTR; SETMA; 
DPX<MD; 



FMUL DPX,MD 

FMUL 

FADD FM,FA; 

FADD; 

DPY<FA; 



FMUL DPY,DPY 

FMUL 
DEC N 

ADD XINCDPTR; SETMA; MI<FM; 
BGT LOOP 



OUT 



FMUL DPY , DPY 
MOV CPTR,CPTR; SETMA; MI<DPY; FMUL 

FMUL 

ADD XINCDPTR; SETMA; MI<FM; 
RETURN 



Notice that the (fmul) in column 2 became a real FMUL in the intro. 

OUT starts just the last column. The next line stores the 
completed' dot product. 
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One might wish to come out one early even if one doesn't strictly 
need to, if the loop is long and there are only a couple of lines 
in the last column: 



1) (code) 


(code) 


2) 


' SETMA 


It 


3) 




II 


4) 




" SE 


5) 






6) 


' SETMA 




7) 






8) 


' SETMA 




9) 






10) 


' SETMA 




11) 




DEC N 


12) 


• SETMA 


BGT LOOP 



SETMA; MI<DPX 



In this case, coming out of the loop one time early and adding on 
the last 4 lines afterward would save going through 8 cycles for 
nothing. 

2 . 8 INTERACTION BETWEEN COLUMNS 

In order to fit things into complicated loops without creating 
op-code conflicts, the AP programmer takes advantage of results 
(e.g. MD, FA) which are the same for one or more cycles after it 
is first available. Sometimes he will purposely delay the 
pushing of. an answer through a pipeline by leaving out "pushers". 
But he must be careful of the way the columns interact with each 
other within the loop. 



1) 


FMUL DPX,DPY 


, 


2) 
3) 
4) 


FMUL 


FMUL DPY(3),DPX(2) 
FMUL ■ 


5) 
6) 


FMUL 
DPX(l) <FM 


DPY(1)<FM 



The FMUL's in column 2 will act as "pushers" for the FMUL DPX,DPY 
in column 1, whose answer will come out on line 4 instead of line 
6 as desired and will disappear forever when replaced by a new' 
FM on line 5. Notice the FMUL on line 4 in column 1 acts as a 
pusher for column 2, which was planned for. 
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Another example 



1) 
2) 
3) 
4) 



( code) 

ADD XINC,APTR; 

(code) 



, DPX<MD 
SETMA . (code) 

FADD FM,DPX 
(code ) 



(code) 
DPX<FA 
(code) 



The DPX of column 2 line 3 will not be the same as what was stored 
into it in column 2, line 1. It will be FA from column 3, lino 2. 



2.9 CHANGING DPA 



Because one can access things in Data Pad much faster than 
things in memory, it makes sense to store things from memory 
into Data Pad if they will be used again. For example, if one 
is going to use an N-element vector for several different 
computations, one could store it in DPX(p), DPX( 1) , . . . . ,DPX(N-1) . 
Because the Data Pad indices can only be accessed from -4 to +3 
with a static DPA, it becomes useful to leave the index alone 
and change DPA. 

Storing vector A in DPX is basically the repeated operation of 
DPX<MD; INCDPA. If DPA is initially set to zero, then the first 
element will be stored into DPX(O). INCDPA will increase DPA 
for the next instruction. Thus: DPX<MD; INCDPA "refers to DPX(O) 

DPX<MD "refers to DPX(l) 

The ways to set DPA to zero: 

CLR# (S-Pad name); SETDPA "uses up S-Pad field 
or 
-DB=ZERO; LDDPA "uses up Adder field 

Thio loop will read a vector from memory into Data Pad X: 



ADD XINC,APTR; SETMA 



DPXaiD; INCDPA; DEC N 
BGT LOOP 



With intro: 

MOV APTR,APTR; SETMA 
CLR# APTR; SETDPA 
ADD XINC,APTR; SETMA 
LOOP: DPX<MD; INCDPA; DEC N 

ADD XINCAPTR; SETMA; BGT LOOP 
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2.10 NON-MEMORY-LIMITED LOOPS 

A non-memory-limited loop is a lr>op in which 2 times the number 
of memory references is less than the number of same-op-code-field 
operations required. For example, if there are 5 Floating Adder 
operations to be done (FADD, FSUB, FSUBR, etc.) but only 
2 memory references (a fetch and a store), the 5 Adder operations 
cannot fit into 4 cycles. . 

Incidentally, "pushers" don' t count in figuring out how many cycles 
are needed. In a 5-cycle loop with 5 different Adder operations, 
the Adder instructions become each other's pushers.) 

Recall that in. memory-limited loops, the first instruction in 
column 1 usually starts on line 2, to avoid S-Pad conflicts on the 
next-to-last line. (See last paragraph of Section 2.4). This is 
not necessary in non-memory-limited loops. 

The following loop will test whether each element of a vector in 

DPY is. within the range between a maximum limit and minimum 

limit. If so, the element is added to a cumulative sum. The maximum 

limit is conveniently located in MD, and the minimum limit in FM, 

by the grace of whatever program uses this loop. Neither FM nor 

MD change during this loop's execution. 



FSUB DPY,MD 
FSUB FM,DPY 
(fadd) INCDPA 



BFGT BIGGER , (fadd) 

BFGT SMALL I DPX<FA; DEC N 

FADD DPY(-1),DPX , BGT LOOP 



Note that the BFGT instruction tests FA of the previous cycle. 

2. 11 A 1- CYCLE LOOP 

For the 1-cycle dot product, it is assumed that the vectors are 
already in Data Pad, starting at DPX(O) and DPY(O) (where DPA=0 ) , 
Obviously, vectors longer than 32 elements- cannot be handled this 
way (or can only be handled in segments of 32 or less). 

This is what the loop really looks like: 



FMUL DPX, DPY; INCDPA (fmul) ( f mul ) FADD FM,FA; DEC Ni (fadd) BGT LOOP 



The FMUL and FADD instructions become their own "pushers" 
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3TITLE DOTPROD 
$ENTRY DOTPROD 

N $EQU 
CPTR ipEQU 1 



number of elements in each vector 
where to store answer 



DOTPROD 



LOOP 



CLR# N; SETDPA 

FMUL dpx,dpy; 

INCDPA; 

DEC N 
Fr.lUL DPX,DPY; 

INCDPA 
FMUL DPX,DPY; 

liNTCDPA; 

FADD ZERO, ZERO 
FMUL DPX,DPY; 

INCDPA; 

FADD FM,ZERO; 

DEC N 
FMUL DPX,DPY; 

INCDPA; 

FADD FM , FA ; 

DEC N; 

BGT LOOP 



"DPA=0 • . 

"do A(1)*B(1) 

"DPA to 1 

"set drop out early 

"do A(2)*B(2) 

"DPA to 2 

"do A(3)*B(3) 

"DPA to 3 

"init . FA=0 

"do A(4)*B(4) 

"DPA to 4 

"A(1)B(1) in Adder 

"decrement counter 

"do A(m)*B(m) 

"DPA to DPA+1 

"add x\(m-3)B(m-3) to 

"decrement counter 

"test if done 



sum 



OUT: 



ipEND 



DPX<FA; FADD 
FADD DPX,FA 
FADD 

MOV CPTR, CPTR; SETMA; MI<FA; 
RETURN 



"store cumulative FA 

"add it to other cumulative FA 



"store answer 



This particular sort of loop has a problem with the Floating Adder, 
in that a cumulative FA needs at least 2 cycles to accumulate 
each new addition. Hence, the 1-cycle loop is actually operating 
with 2 mutually exclusive cumulative FA's, interwoven with each 
other : 

FADD FM,FAv 
FADD FM,FA) 
FADD FM,FAx 
FADD FM, FA 
FADD FM , FA 

At the end of all this,, they (the two strings of sums) need to be 
added to each other. (See OUT, the label after LOOP). 
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This also illustrates the practice of dropping out of the loop 
one time early. . If it didn't drr)p out early, the last (unneeded) 
FADD FM,FA of the loop would push out one of the 2 cumulative 
FA'S. By the next cycle it would be gone forever. By dropping 
out early, DPX<FA can be done before it's too late. 

This line of reasoning can eventually lead one to the idea that 
the last column of the loop (see beginning of Section 2.11) is 
unnecessary, since there is no way . for the Adder result to come 
out in time for the next FADD FM,FA. The FADD FM,FA of each of the 
two strings of cumulative FA's will push out the other string. So 
the loop need only be of the form: 



FMUL DPX,DPY; INCDPA (fmul) (fmul) DEC N FADD FM, FA; BGT LOOP 



This is one column less than before, which means that there will be 
one column's worth (in this case, one line) less to put in the 
intro. It will also not be necessary to come out of the loop one 
time early, as there is no extra FADD FM,FA to push away something 
needed. It is still necessary to add the 2 cumulative FA' s 
together at the end. 



$TITLE DOTPROD 
$ENTRY DOTPROD 

N $EQU 
CPTR $EQU 1 



DOTPROD 



LOOP: 



OUT: 



CLR# N; SETDPA 
FMUL DFX,DPY; 

INCDPA; 

FADD ZERO, ZERO 
FMUL DPX , DPY ; 

INCDPA; 

FADD ZERO, ZERO 
FMUL DPX, DPY; 

INCDPA; 

DEC N 
FMUL DPX, DPY; 

INCDPA; 

DEC N; 

FADD .FM, FA; 

BGT LOOP 
DPX < FA; FADD 
FADD DPX , FA 
FADD 
MOV CPTR, CPTR; 

RETURN . 



DPA=0 

A(1)*B(1) 
DPA to 1 
initialize 

A(2)*B(2) 
DPA to 2 
initialize 

A(3)*B(3) 
DPA to 3 



cum. FA=0 



other cum. FA=0 



A(m)*B(m) 

DPA to DPA+1 

decrement counter 

add A(m-3)B(m-3) to cum. FA 

test if done 
store first cumulative FA 
add.it to other cumulative ' FA 



SETMA; MI<FA; "store answer 



;^^END 



2-17 



SECTION 3 
CAVEAT PROGRAMMER (Let the Programmer Beware) 

3.1 CALLING ANOTHER SUB-ROUTINE 

The JSR instruction allows one program to utilize another program, 
for example the divide sub-routine (DIV) . In order to do this, one 
must declare DIV external ($EXT DIV) so that the assembler and 
linker will know what to do with the otherwise undefined symbol. 
One must also save everything he will need when program execution 
gets back to his main program. Depending upon what was used in 
the called sub-routine, some things may remain untouched. Commonly 
one should not count on being able to leave things in the Adder or 
Multiplier. Parts of Data Pad may also be changed,, or DPA may 
change. S-Pad will probably not remain inviolate. (Remember, it's 
the S-Pad register number, not name, which is important.) These 
things need to be checked before doing a JSR. 

3.2 OTHER THINGS TO WATCH OUT FOR 

The rest of this section consists of various short examples, 
cautions, and reminders. 

DPX<MD; DPY<DPX(1) 

Illegal. Data Bus is assigned twice. (The above is really 

DPX<DB; DB=MD; DPY<DB; DB=DPX(1).) 

DPX<MD; DPY<MD is legal. (DB=MD; DPX<DB; DPY<DB) 

DPX<FA; DPY<FM 

Legal. FA and FM don't use the Data Bus. 

DPX<FA; DPY<FM; DPX(1)<MD 

Illegal. Data Pad X is being written into twice (different 
indices). Within each cycle, there should be no more than one 
of. each of the following: 

write into DPX 

write into DPY 

read from DPX 

read from DPY 
The exception is when reading out of a Data Pad more than once 
but using the same index: 

FADD DPX, FA; FlUJL DPX, FA; DPY(1)<DPX is legal. 

FADD DPY, DPY; FMUL DPY , DPY is legal. 

FADD DPX, FA; FMUL DPX(1),FA is not legal. 

FADD DPX, DPY; DPY<MD 

The old value of DPY, before MD replaces it, is used in the sum. 
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DB=4:; LDSPI XINC; LDDPA; DPX(2)<FM 

Both. pPA and the contents of XINC v/ill become 4, but the previous 

DPA is used in referencing DPX(2k 

SUB# XINC,APTR; BGT OUT 

Illegal. The # uses the condition field (branch). 



THE $END 
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SECTION 1 
INTRODUCTION 

APAL (Array Processor Assembly Language) is a cross- 
assembler written in Fortran IV which provides a' two-pass 
assembly of symbolic coding for the AP-120B. 

APAL is a conventional assembly language, and as such, 
should pose no difficulties to programmers familiar with 
using assembly language on other computers. 

On typical 16-bit mini-computers, APAL requires approxi- 
mately 24K of available memory to operate as supjilied. 
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INTENTIONALLY BLANK 
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SECTION 2 
BASIC SYNTAX 



2.1 CHARACTER SET 

APAL recognizes the following characters: 

Alphabetic A thru Z 
Numeric thru 9 

Special +-*/.$ space tab = < 

( ) ; , : " # S. ! 

2.2 SYMBOL NAMES 

Symbol names may be of any length, however only the 
first six characters of a name are significant. The first 
character of a name must be an alphabetic character, the 
•subsequent characters may be either letters of numbers. 

Examples: LOOP 
A6 
STARTHERE 

Symbols are given a value in any of three ways: 

1. Being defined by a $EQU pseudo-op. 

2. Being used as a label. 

3. Being declared $EXTernal . 

2 . 3 TABLE MEMORY SYMBOLS 

A symbol with a value preset to the address of each of 
the constants in Table Memory ROM is predefined in APAL, 
These symbols all start with a "!" to avoid conflict with 
any user defined symbol. They may be used in expressions 
in the same manner as ordinary symbols. 

A complete list of these symbols is in Appendix C. 
For example, to fetch PI from Table Memory, and add it to 
a number in DPX(2) 

LDTMA; DB-!PI "fetch PI from TM 

NOP "Wait (or do something else) 

FADD TM, DPX(2) "Add PI to DPX(2) 
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2 . 4 NUMBERIC CONSTANTS 

Numbers may be written in four radices: octal, decimal, 
binary, or hex. In each radix, a number may be either signed 
or unsigned. Unsigned numbers may range from to 65535. Signed 
numbers may range from -32768 to +32767. The radix of a number 
is established by a radix identifying character which is written 
immediately after the number. Octal numbers are denoted by a "K" 
immediately following the number. Decimal is denoted by a ".", 
binary by a "B" and Hex by an "X". The first digit of a hex 
number must be a numeric character. The default radix, if a 
radix identifier is not used, is octal. 

Examples: Octal integers: 177777 

-4p727K 

-10 
Decimal integers: 32767. 

-1000. 

+10. 
Binary integers: 101011010B 

-101B 
Hex integers: 0ABCDX 



123FX 
0CX 



2,5 EXPRESSIONS 



Expressions may be used whenever a numeric value is required, 
Expressions are made up of operands and operators. 

2.5.1 Operands, Operands may be symbol names, numeric con- 
stants, or the location counter, denoted by ".", 

Exjimples: TBLADR 
598X 

2.5.2 Operators. Operators denote operations of addition ("+''), 
subtraction ("-"), multiplication ("*"), or division ("/") upon 

a pair of operands. 

Some sample expressions: 

TBLADR +37 

, + 9, 

LOOP + 6 * A 

Expressions are evaluated from left to right, modulo 2"^^. 
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SECTION- 3 
SOURCE PROGRAM STATEMENTS 



APAL source statements may be divided into- .three categories: 

1. Comment statements 

2o Instruction statements 

3. Pseudo-op statements 

Comment statements allow program documentation, instruction 
statements contain the actual symbolic machine code, and pseudo- 
op ' s provide directives to APAL during the assembly process. 

APAL statements have a basically free format: spaces and 
tabs may be used as desired to improve legibility. 

3.1 COMMENT STATEMENTS 

Everything on a line after a quote mark (") is treated as a 

comment by APAL. A line which contains only comments or a line 
that is completely blank is a comment statement, and is ignored 
during the assembly process i Carriage return terminates a comment 

3-. 2 INSTRUCTION STATEMENTS 

An APAL assembly language instruction statement has the 
general format of: 

Label: Op-code fields "Comments 

The label and comments are optional. The assembler processes the 
op-code fields and generates one 64-bit program word for each 

instruction statement. 

3.2.1 Label Field, A label is a user-defined symbol which is 
assigned the value of the current location counter and entered 
into the user symbol table. A label is a symbolic means of 
refering . to a specific location within a program. If present, 
a label always occurs first in an instruction statement and must 
be terminated by a colon. For example, if the current location 
is 76 the instruction statement: 

LOOP: FADD DPX , DPY "LOOP HERE 

Assigns the value of 76 to the symbol "LOOP". 
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3.2,2 Op-code field(s)o The Op-code field follows the" label field 
in an instruction statement and contains one or more AP-120B 
op-code mnemonic. Individual op-codes in an instruction 
are separated from each other by a semicolon ";". The last 
op-code in an instruction is not terminated by a semicolono 
This tells the assembler when' it has reached the end 'of a 
complete AP-120B instruction statement , For example, both of 
the following instruction statements are equivalent: 

LOOP: FADD DPX, DPY; FMUL TM^ MD; BFGT DONE 

or 

LOOP: FADD DPX, DPY; 
. FMUL TM, MD; 
BFGT DONE 

Each is one instruction statement, which assembles into one 
64-bit instruction word. Thus, one instruction statement may be 
continued over as many lines as desired to achieve a readable 
program document. Instruction statements are terminated by an 
op-code field which is not followed by a semicolon: not by the 
end of a line. 

Op-codes may be written in any order preferred within any 
given instruction statement. The assembler will flag with an 
error message any conflicts between op-codes. 

Some op-codes require operands as arguments. The operand(s) 
are separated from the op-code by a space or tab, and from each 
other by a comma. Some example op-codes: 

No operands: HALT; REIURI^ 

One operand: FABS MD; BFGT LOOP 

Two operands: FADD DPX, DPY; FMUL TM, MD 

If an operand is missing or improper, the assembler will give 
an appropriate error message. 

A listing of the various AP-120B op-Codes is contained in 
Appendix A. 

3.2.3 Comment Field, The remainder of any line following a quote 
mark (") is treated as a comment by the assembler and ignored* 
The comment field is terminated by a carriage return. Thus, in the 
previous example, we could write: 



APAL 3-2 



LOOP: FADD DPX, DPY; 
FMUL TM, MD; 
BFGT DONE 



"DO AN ADD 

"AND A MULTIPLY 

"AND A BRANCH 

"ALL IN ONE INSTRUCTION 



As before, an instruction statement is ended by the absence 
of a semicolon following the last op-code in that instruction, 

3o3 PSEUDO OPERATIONS STATEMENTS 

Psuedo-operations are directives to the assembler which 
control certain aspects of the assembly translation process. 
Each psuedo-op must appear on a separate line in the source 
texto All psuedo-op names start with a "$". As with instruction 
statements, psuedo-op statements may be labeled and have comments. 



3o3.1 $EQUo This operator equates a symbol to an expression 
If user defined symbols are used in the expression they must 
have been previously defined in the program. 



samples : 


A 


$EQU 321 




LOOP 


$EQU LOC + 3 




HERE 


$EOU . - 3 




MASK 


$EQU 132*3+6 



Alternatively, the characters 
of "$EQU": 



may be used in place 



A = 6 
X = A*3 

When so used, the "=" must be both preceeded and followed 
by a least one space or tab character. 

3.3.2 $LOC, $LOC sets the current location counter to the 
value of an expression. If symbols are used in the expression 
they must have been previously defined earlier in the program. 

Examples: $LOC 300 

' $LOC . + 6 "LEAVE NEXT SIX UNUSED 
$LOC LOOP +10 

Caution: $LOC should not be set to an absolute address, as in 
the first example, if the assembly output is to be linked re- 
locatably with other programs. 

3.3.3 $END. $END causes APAL to terminate the assembly. 
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3.3.4 $VALo This operator defines f^ ' bits worth of data to fill 
one program word. The data is specified as four 16-bit integers, 
which represent the four 16-bit quarters of a program word. The 
four expr6?ssions are separated by commas. 

Examples: $VAL -377, 104763, 10., LOOP + 6 
$VAL 0, 0, 2000, 33 

3.3.5 $FP. This operator fills the right-most 38-bits of a 
program word with a specified floating-point number. The left- 
hand 26-bits of the word are cleared. 

Examples: $FP 6.0023E23 

$FP 2 

$FP E-17 

PI: $FP 3.141592654 "PI IS HERE 

Note: a floating-point number (say a constant for an algorithm) 
can be read out of Program Source memory and onto the Data Pad 
Bus using a "RPSF" op-code. As an example, to load the contents 
of location "PI" into Data Pad X: 

RPSF PI; DPX^DB "G'rET PI INTO DPX 

3.3.6 $TITLE. This pseudo-op names a program. The name need 
not be unique from other symbols in the program. The $TITLE 
pseudo-oi3 must occur first in the program, before any other 
pseudo-ops or instruction statements. 

Examples: $TITLE FFT 

$TITLE DIVIDE 

3.3.7 $ENTRY. This pseudo-op declares a symbol to be global; i.e. 
a symbol which is defined in this program and may be referenced by 
other separately assembled programs. The identified symbols must be 
defined m this program either by an "$EQU" pseudo-op or by being 
used as a label. $ENTRY pseudo-ops must occur before any instruction 
statements in the program. 

If the symbol is to be an entry point for Host Computer Fortran Calls, 
then following the symbol name must be -the number of S-Pad parameters' 
expected in the CALL. This may be a number from 0-170, and is separated 
from the symbol name by a comma. 

Examples: $ENTRY A 

$ENTRY 3,6 "Expect 6 S-Pad parameters 
$ENTRY C,0 "Expect S-Pad parameters 
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3.3o8 $EXT. This pseudo-op declares global symbols which are 
referenced by this program, but are defined by another separately 
assembled program. $EXT pseudo-ops must occur in the program 
before any instruction statements. Symbol names are separated by 
commas. 

Examples: $EXT FLOAT, SCALE, FFT 
$EXT DIVIDE 

3.4 ORDER OF PROGRAM STATEMENTS 

There is definite ordering of statement types with a program. 
The $TITLE Pseudo-op comes first. Next, if present, any $ENTRY and 
$EXT pseudo-ops. The the program body, i.e. the code, then occurs 
Finally comes the $END pseudo-op. Statement order: 

$TITLE pseudo-op 
$ENTRY pseudo-op(s)* 
$EXT pseudo-op(s)* 
"code, etc."* 



$END pseudo-op 
*Need not be present. 
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3.5 A SAMPLE PROGRAM 



STITLE D0TPR 
SENTRY D0TPR^ 6 
••VECT0R D0T PR0DUCT 
"D0ES CCO> » SUM C ACMI) 



* B<MJ) ) FOR M a T0 W-I 



--- STATISTICS 

"AUTH0R: A*E. CHARLESVORTHj JULY 75 
••REVISI0M 1.3 FEB 76 CHANGED SENTRY 
"SIZE: 9. L0CATI0NS 

"SPEED: 2 MEM0RY REFERENCES PER P0INT 
"SCRATCH: SP: 0^4^5; DPXl <RE1-ATIVET0 



DPA) 



SETMA 
SETMA 



setma; 



"S - PAD PARAMETERS: 

A SEQU 

I SEQU I 

B SEQU 2 

J SEQU 3 

C SEQU A 

N SEQU 5 
D0TPR: M3V A^A; 

M0V b*b; 

dpx<md; 

INC N 
ADD I/A; 

FADD ZER0^ZER0 
L00P: FMUL DPX^MD; 

fadd; 

DEC N 
BEQ D0NE; 
FMUU 
ADD J^B; SETMA 

dpx<md; 

FMUL 
FADD FM^FA; 

add wa; setma; 

BR L00P 
D0NE: MKFA; M0V c^c; 
RETURN 
SEND 



"BASE ADDRESS 0F A 

"INCREMENT F0R A 
«• 



BASE ADDRESS 0F B 
"INCREMENT F0R B 
"ADDRESS 0F C 

"VECT3R LENGTH 

"FETCH A(0> 

"FETCH B<Q) 

"SAVE ACQ) 

" KEEP C0UNT RIGHT 

"FETCH ACn 

" CLEAR SUM 

"D0 A<M)*B<M) 

" PUSH ADDER 

" SEE IF D0NE 

"BRANCH IF D0NE 

" PUSH MULTIPLIER 

" FETCH BCM+l) 

"SAVE A<M+l ) 

" PUSH MULTIPLIER 

"ADD (A(M)*BCM>) T0 SUM 

" FETCH A(M+2) 

" BRAI>ICH BACK 

setma; "ST0RE answer in C(0) 

" RETURN 
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SECTION 4 
OPERATING PROCEDURES 

4.1 USING APAL 

APAL assembles a file of source text containing an AP-120B 
program into a relocatable object file. Optionally an assembly 
listing is produced.' 

APAL first requests whether another assembly is to be done: 

DONE? 1=YES, 0=NO: 

A response of "1" will cause APAL to exit to the system 
monitor. A "j9" will signal APAL that another assembly is to 
be done. 

APAL then requests the names of the three files to be used 
for source, object, and listing and errors respectively. The 
program requests the name of the source file by outputting to the 
user console: . 

SOURCE FILE= 

The user responds by entering the desired program file 
name. APAL then requests the name of the file to receive the 
relocatable object output by outputting: 

OBJECT FILE= 

The user responds by entering the desired object file name. 
APAL then requests the name of the file to receive the assembly 
list.ing by outputting: 

LISTING ANID ERROR FILE= 

The user replies by entering the name of the desired listing 
file. 

Finally, APAL outputs: 

LISTING? 1-YES, 0=NO : 

A response of "1" will yipld a full assembly listing, symbol 
table, and any error messages. A "0" will suppress the assembly 
and symbol table listings and put out only any error messages 
into the listing file. 

Finally, if a listing was requested, APAL outputs: 

LISTING RADIX? 1=HEX , {Z)=OCTAL : 

A response of "1" will cause the assembly listing to be 
done in Hexadecimal (base 16). A"^" will make the assembly 
listing in Octal (base 8). 

In each of the above cases, if the sought after file cannot 
be found or is otherwise unavailable, APAL types "??", and waits 
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for another user response. 

An example dialogue is given below. The user desires to 
assemble an AP-120B program in file "FFT.AP" and put the object 
output into file "FFT.RB". The listing will be put out on the 
line printer. Of course, the precise details of how files and 
devices are named will depend on the particular operating system 
being used. The messages printed by the computer are underlined 
for clarity; a "4-" means carriage return: • 
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RUN APAL4- 

DONE? 1=YES, 0=NO: li 

SOURCE FILE = FFT.APi 

OBJECT FILE = FFT.RB+ 

LISTING FILE = LP : I 

LISTING? 1=YES, 0=NO: 14- 

LISTING RADIX? 1=HEX, i9=0CTAL : ^2)4- 

DONE? 1=YES, 0=NO: 04- 



4.2 LISTING .FORMAT 

Upon commencement of the assembly, APAL outputs: 

APAL 

PASS 1 

"###" is the version number of the assembler being used. 
Any errors detected during pass one are output next. At the 
start of pass two APAL outputs: 

PASS 2 

The assembly listing follows. The listing contains the 
following information for each program statement: 

Columns Contents 

1-6 The location counter, if relevant. 

7-8 Blank 

9-14 The assembled data, if relevant. 

15-16 Blank 

17-132 The source statement 

For program instruction statements the assembled data is 
presented as four numbers , representing bits 0-15, 16-31, 32- 
47, and 48-63 of each program source word. 

At the end of pass two, APAL outputs 

**** ### ERRORS **** 

Where "###" is the number of errors detected. Finally, 
APAL outputs: 

SYMBOL 'NAME' 
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Followed by the symbol table: 
Columns Contents 



1-6 


Symbol 


Name 




7-8 


Blank 






9-14 


Symbol 


value 




15 


Blank 






16-18 


Symbol 


type: 


Blank - local symbol 
EXT - external symbol 
ENT - entry symbol 



In all of the above occurance where a number (location, data 
value, etc.) is printed on the listing, the radix is either 
octal or hex, as specified by the user during the initial 
dialogue. 
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>>R APAL 
S0UHCE FILE«/CDR 
0BJECT FILE-TEMP 
LISTING AND ERR0R FIL£=/TT3 
LISTING? l»YES^ O=N0 : 1 
LISTING RADIX: 1=HEX^ 0=i3CTALs 



4.3 A SAMPLE ASSEMBLY LISTING 



APAL 
V2.1 
PASS I 

PASS 2 



000000 



OOOOOl 



000002 



000003 



000000 

OOOOOl 

000002 

000003 

000004 

000005 

040000 
000000 
000000 
000060 

040210 
000000 
000000 
000060 

001 124 
000000 
045004 
000000 

020101 
155000 
000000 



STITLE D0TPR 

SENTRY D0TPR# 6 
"VECT0R D0T PR0DUGT 
••D0ES C(0) = SUM C ACMI) *,B<MJ) ) 



F0R M 



T0 N-l 



--- STATISTICS 

"AUTH0R: A-E. CHARLESy3RTH> JULY 75 

"REV1SI0N 1.3 FEB 76 CHANGED SENTRY 

"SIZE: 9. L0CATI0NS 

"SPEED: 2 MEM0RY REFERENCES PER P0INT 

•♦SCRATCH: SPt 0^4>5; DPX: (RELATIVE T0 DPA) 



••S - PAD PARAMETERS: 
A SEQU 

I SEQU 1 

B SEaU 2 

J SEQU 3 

C SEQU 4 

N SEQU 5 

D0TPR: M0V A^A; SETMA 



♦♦BASE ADDRESS 0F A 
-INCREMENT F0R A 
••BASE ADDRESS ^F B 
••INCREMENT F0R B 
••ADDRESS 0F C 

•'VECT0R LENGTH 
••FETCH A(0) 



M0V B..B; SETMA 



FETCH BCO) 



dpx<md; 

INC N 



add i*Ai setma; 

FADD Z£R0^2£R0 



-SAVE A(0) 

•• KEEP C0UNT RIGHT 



-FETCH ACl ) 
- CLEAR SUM 
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UUUv 04 00l*.Jt? L30PI 
lOOOOO 
000400 
013400 

000005 020310 
000623 
000000 
010060 

000006 000000 
000000 
045004 
01 0000 

000007 020101 
111115 
000000 
000060 

OOOOIO 040420 D0NEj 
000340 
000000 
000160 



fadd; 

DEC M 



5£Q D0NE; 

fmul; 

ADD vI*B; setma 



dpx<md; 

FMUL 



FADD FM*FA; 

ADD i-»a; setma; 

BR L00P 



mkfa; M0V 

RETURN 



C/C; setma; 



PUSH ADDER 
SEE IF D0NE 



BRANCH IF D0NE 
PUSH MULTIPLIER 
FETCH B<M>1) 



SAVE ACM+1 ) 

PUSH MULTIPLIER 



ADD (ACM)*BCM)) T0 SU 
FETCH A(M-^2) 
BRANCH BACK 



ST0RE ANSVER IN CC0> 
RETURN 



SEND 



i^*** 



ERR0RS 



♦ ♦*♦ 



SYMBOL 


VALUE 


A 


000000 


I 


OOOOOl 


B 


000002 


J 


000003 


C 


000004 


N 


000005 


D0TPR 


000000 


L00P 


000004 


D0NE 


OOOOIO 



ENT 
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INTENTIONALLY BLANK 
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SECTION 5 
ERROR MESSAGES 



APAL error messages are printed in the listing following 
the offending statement. There are five basic error classes, 
which are listed below along with the action taken by the 
assembler: 

- Out of rang:e: the offending numeric value was 
truncated to the proper range o 

C - Conflicting definitions: the first definition 
was used. 

M - Missing (or improper) argument: a value of zero 
was used. 

B - Bad syntax: the bad op-code field or pseudo-op 
was ignored. 

W - Warning of improper useage. 

Error diagnostics issued by APAL consist of two lines. 
The first line consists of the error number. The second 
line contains the error class and error message. Following 
are the assembler error messages, along with an explanation 
as to the possible causes and/or cures, 

lo W LINE BUFFER OVERFLOW 

An instruction statement was too long (600 characters 
maximum) for the listing buffer, 

2, C MULTIPLY DEFINED SYMBOL 

A symbol may be defined only once in a program, 

3o C CONFLICTING OP-CODES 

Two op-codes were used in an instruction statement which 
used the same instruction word bit fields. 

4, S-PAD ADDRESS OUT OF RANGE 

An S-Pad address was outside the legal range of 0-15. 

5, BRANCH ADDRESS OUT OF RANGE 

A branch address was more than 16 locations lower or 
15 locations higher than the current location. 
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6. C CONFLICTING BiRANCH ADDRESSES 

Only one branch address may be used in any given instruc- 
tion statement. 

7. M MISSING BRANCH ADDRESS 

No target address was given for a branch op-cOde, 

8, C CONFLICTING DATA PAD INDEXES 

Only one value may be given to each Data Pad Index 
(XR, XW, YR, YW) per instruction statement, 

9, M BAD OR MISSING EXPRESSION 

The assembler could not process an expression. 

10. M WRONG FADD ARGUMENT 

A floating adder op-code had an invalid Al or A2 operand, 

11 o M WRONG FMUL AGREEMENT ' 

A FMUL op-code had an invalid Ml or M2 operand, 

12/ M MISSING FADD OR FMUL ARGUMENT 

An operand was missing following a FADD or FMUL op-code, 

13. C VALUE FIELD CONFLICT 

Only one op-code which uses a 16-bit VALUE field operand 
may be used per instruction statement' 

14. M MISSING DATA PAD INDEX 

A Data Pad Index was missing from an op-code where it 
was needed. 

15. M UNDEFINED OP-CODE 

An op-code name was not a legal AP-120B instruction. 

16. M $EXT SYMBOL IN EXPRESSION 

An external symbol may not be used to form an expression, 

17. M UNDEFINED USER SYMBOL 

A user symbol was referenced which was not defined, 

18. M MISSING ARITHMETIC OPERATOR 

An arithmetic operator (+ - * /) was missing from 
an expression. 

19. INTEGER 'overflow 

An integer constant was too large to fit in 16 bits. 
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20 „ B UNRECOGNIZED STATEMENT 

A statement line was neither a comment, instruction, 
or pseudo-op statement. 

21 o M' IMPROPER $LOC OR $EOU VALUE 

The value of a $LOC or $EQU pseudo-op was either 
an undefined, symbol or an improper expression, 

22. M $EXT SYMBOL NOT ALLOWED 

An external symbol may not be used as an argument 
for this op-code. 

23. W MISSING $END 

A program must terminate with a SEND pseudo-op. 

24. DATA PAD INDEX OUT OF RANGE 

A Data Pad Index must be between -4 and +3 inclusive 

25. B MISSING PARENTHESES 

The right parenthesis following a Data Pad 
Index was missing. 

26 <, M BAD DATA PAD INDEX EXPR 

A Data Pad Index expression could not be resolved 
into a numeric value, 

27. B COMMA MISSING 

Only a comma may be used to separate pseudo-op 
arguments. 

28o B SYMBOL MISSING IN $EXT PSEUDO-OP 

No symbol names were found as arguments for an 
$EXT pseudo-op. 

29. B MISSING SEP AFTER D.P, INDEX 

An illegal character was found following a Data 
Pad Index. 

30. B MULTIPLE PSEUDO-OPS 

Only one pseudo-op statement may appear on a line, 

31. M BAD FLOATING POINT NUMBER 

A floating-point number was unacceptable to the 
assembler. 
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32, W ILLEGAL PSEUDO-OP POSITION 

If used, a $TITLE pseudo-op must appear first in 

a program, followed by any $EXT or $ENTRY pseudo-ops „ 

33 o W $ENTRY SYMBOL NOT LOCAL 

An $ENTRY Symbol must not be $EXTernal also. 

34. W UNREFERENCED $EXT SYMBOL 

A declared external symbol was never used in the program, 

35c W UNDEFINED $ENTRY SYMBOL 

An $Entry symbol was not defined. 

36. C DATA PAD BUS CONFLICT 

Only one data source may be enabled onto the Data Pad 
Bus per instruction statement. 

37. M MISSING S-PAD ADDRESS 

An S-Pad op-code was missing its S-Pad Register Address. 

38. M MISSING PROGRA?.! SOURCE ADDRESS 

An op-code requiring a program address, such as a JMP or 
JSR, was missing its address. 

39. XW/YW CONFLICT 

If the value field is used in an instruction, an op-code 
which writes into Data Pad Y (such as DPY(2)<FM)) may be 
used also only if 1 ) no write into Data Pad X is done, or 
2) the indexes are the same for the writes into both 
DPX and DPY. Examples: 

Legal: JSR SQRT; "Uses the value field 
DPY(2)<FM "A store into DPY 

Legal: JSR SQRT; "Uses the value field 

DPX(2)<FA; "Both Data Pad write indexes 
DPY(2)<FM " are the same 

Illegal: JSR SQRT: "Uses the value field. 
DPX(-1)<:FA; "the two Data Pad write 
DPY(2)<FM "indexes are different 
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APPENDIX A 
SPECIAL CHARACTER USAGE 

Character Function 

+ integer addition operator 

integer subtraction operator 

* integer multiplication operator . 
/ integer division operator 

decimal point, current location 

$ first character of pseudo-op names 

space symbol terminator 

tab symbol terminator 

= $EQU pseudo-op, DB=op-code 

( preceeds a Data Pad index expression 

) terminates a Data Pad index expression 

< used in DPX, DPY, and MI op-codes 

; op-code terminator 

, operand separator 

: label terminator 

" comment start indicator (carriage return terminates) 

# S-Pad no-load indicator 

& S-Pad bit-reverse indicator 

I first character of predefined symbols 
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APPENDIX B 
AP-120B SYMBOLIC OP-CODES 



The various AP-120B op-codes may be divided into 13 groups. 
One op-code from each group may be used in any given instruc- 
tion statement, unless otherwise stated. . 

The following two symbols are used throughout this appendix: 

<> Indicated optional operands or mnemonics. 

The item enclosed in the brackets (e . g. , <#>) 
may or may not be coded, depending upon whether 
or not the associated option is desired. 

Indicates a specific substitution is required. 

: — Substitute the desired address, name, number 

or mnemonic for the abbreviation underlined. 

The following list of abbreviations are used to facilitate the 
op-code descriptions. They are explained in the section of the 
op-code group where they first occur: 

Abbreviation Meaning 

sh S-Pad Shift 

# S-Pad no-load 

sps S-Pad Source register 

spd S-Pad Destination register 

& Bit reverse 

disp Branch displacement 

al Floating Adder argument #1 

a2 Floating Adder argument #2 

idx Data Pad index 

ml Floating Mulitplier argument #1 

m2 Floating Multiplier argument #2 

dbe Data Pad Bus enable 

adr address or value 



Secti< 


on 


in 


which 


described 




B. 


,1 




B. 


,1 




B. 


1 




B. 


,1 




B. 


,1 




B. 


,5 




B. 


,6 




B. 


6 




B. 


6 


a 


B. 


7 


■2 


B. 


.7 




B, 


8 




B. 


,8 
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B.l S-PAD OP- CODE GROUP 



Purpose: S-Pad . integer arithmetic 



Double Operand Op-codes 

ADD<sh><#> <&;> sps , spd 

SUB<sh.><#> <&> sps , spd 

MOV<sh><#> <8c> sps , spd 

AND< sh >< rr > <&>S£s, spd 

OR <sh><#> <&;> 3ps , spd 

EQV<sh><#> <&;> sps , spd 

The result 

Single Operand Op-codes 

CLR<sh><#> spd 

INC<sh><#> spd 

DEC<sh><#> spd 

COM<sh><#> spd 



The result of the above 

Miscellaneous 

LD3PNL spd 
LDSPE spd 
LDSPI , spd 

WRTEXP 
WRTHMN 
WRTLMN 
ABBREVIATIONS: 



Function 

ADD sps to spd 
SUBtract sps from spd 
MOVe sps to spd . 
AND sps to spd 
OR sps to spd 
EQuiValence sps to spd 



Function 

Clear spd 
INCrement spd 
DECrement spd 
COMplement spd 

op-codes is SPFN (S-Pad Function). 

Function 

LoaD Spd from PaNeL bus 

LoaD SPd from data pad bus Exponent 

LoaD SPd from data pad bus Integer 

( low 16-bits) 
LoaD SPd from data pad bus Table 

look-up bits 
enable WRiTe of EXPonent only into 

DPX, DPY or MI 
enable' WRiTe of High MaNtissa only 

into DPX, DPY or MI 
enable WRiTe of Low MaNtissa only into 

DPX, DPY or MI 



Name 



sh 



# 



sps 



Meaning 

S-Pad shift 
Choices 
(omitted) 
L 
R 
RR . 



Meaning 

no shift 

shift SPFN left once 

shift SPFN right once 

shift SPFN right twice 



S-Pad no-load: If present, do not load SPFN into spd 
(S-Pad destination register). If specified, a branch 
group op-code may not be used in the same instruction 
statement. 

S-Pad source register: a name, number or expression 
specifying a register number between (j) and ITs . 
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spd 



S~Pad destination register: a name, number, or expression 
specifying a register number between and ITa- 
SPFN is loaded into the S-Pad destination register 
unless S-Pad no-load (#) is specified. 



& 



Bit reverse: if present, bit reverse the contents of 
sps before using. The bit reverse is done as specified 
by. bits 13-15 of the Internal Status Register. 



Op-code Examples: MOV 3,6 

SUBL 1,15 

ADDL# &PTR, BASE 

DEC CTR 

CLR 9. 

LDSPI 6 

B.2 MEMORY ADDRESS OP-CODE GROUP 

Purpose: to initiate Main Data Memory cycles 

Op- codes Function 



INCMA 
DECMA 

SETMA 



INCrement Memory Address 
DECrement Memory Address s 
SET Memory Address from SPFN 



B.3 TABLE MEMORY ADDRESS OP-CODE GROUP 

Purpose: to initiate Table Memory fetches 

Op -codes Function 

INCTMA INCrement Table Memory Address 

DECTMA DECrement Table Memory Address 

SETTMA SET Table Memory Address from SPFN 

Bo 4 DATA PAD ADDRESS OP-CODE GROUP 

Purpose: to change the DPA (Data Pad Address) register 

Op -codes Function 

INCDPA INCrement Data Pad Address 

DECDPA DECrement Data Pad Address 

SETDPA SET Data Pad Address from SPFN 
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B.5 BRMCH OP-CODE GROUP 



Purpose: 


Con 


Op- code 




BR 


disp 


BINTRQ 


disp 


BION 


disp 


BIOZ 


disp 


BFPE 


disp 


BFSQ 


disp 


BFNE 


disp 


BFGE 


disp 


BFGT 


disp 


BEQ 


disp 


BNE 


disp 


BGE 


disp 


BGT 


disp 


RETURN 




ABBREVIATION: 



Conditional branches 



Function 



BRstnch unconditionally 

Brsinch on INTerrupt ReQuest flag non-zero 

Brsmch if I/O data ready flag Non-zero 

Branch if I/O data ready flag Zero 

BrsLnch on Floating Point Error 

BrELnch on Floating adder EQual to zero 

Branch on Floating adder Not Equal to zero 

Brainch on Floating adder Greater or Equal to zero 

Branch on Floating adder Greater than zero 

Branch on s-pad function EQual to zero 

Branch on s-pad function ■lot Equal to zero 

Branch on s-pad function Greater or Equal to zero 

Branch on s-pad function Greater than zero 

REI'URN from subroutine 



disp Branch displacement: the branch target address, an 

address between 16 locations behind and 15 locations 
ahead of the current location. 

Examples: BR LOOP 
BGT 0+3 
BFNE A-4 



B.6 FLOATING ADDER OP-CODE GROUP 



Purpose: Floating-point adds 



Double Operand 
Op -codes 



FADD 


< aj , a2 > 


FSUB 
FSUBR 


al, a2 
al , a2 


FAND 
FOR 


al, a2 
al, a2 


FEQV 


al,a2 


Single 


OjDerand 


Op -codes 


FIX 


a2 


FIXT 


a2 


FSCALE 


a2 


FSCLT 


a2 


FSM2C 


a2 


F2C3M 


a2 


FA3S 


a2 



Function 

Floating 
Floating 
Floating 
Float ing 
Floating 
Floating 



ADD (al+a2) 
SUBtract (al-a2) 
SUBtract Reverse (a2-al) 
AND (al and a2) 
OR (al or a2) 
EQuiValence ( al eqv a2) 



Function 

FIX a2 to an integer 

FIX a2 to an integer, (Truncated) 

Floating SCALE of a2 

Floating SCALE of . a2, (Truncated) 

Format conversion, Signed Magnitude to 2's complement 

Format conversion, 2's complement to signed ma'^nitude 

Floating ABSolute value 
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ADDER OPERANDS: 



al Floating adder argument #1 : 



Choices 

NC 

FM 

DPX<(idx)> 

DPY<(idx)> 

TM 
ZERO 



Meaning 

No Change (use previous al) 
Floating Multiplier output 
Data Pad X 

Data Pad Y • 

Table Memory data 
floating-point ZERO 



a2 



Floating adder argument #2 



Choices 

NC 

FA 

DPX<(idx)> 

DPY<(idx)> 

TM 

ZERO 

MDPX< ( idx)> 

EDPX ( idx) 



Meaning 

No Change (use previous a2 ) 

Floating Adder output 

Data Pad X 

Data Pad Y 

Table Memory data 

floating ZERO 

use Mantissa from Data Pad X, and 

exponent from SPFN 

use Exponent Data Pad X, and mantissa 

from SPFN 



ABBREVIATION: 



idx Data Pad index: A name, expression, or number which 

lies in a range of -4 to +3. 

Op-code examples: FADD TM, MD 

FSUB DPX(3) , DPY(-4) 
FEQV DPX, DPY(C) 
FAND ZERO, MDPX(2) 
FSUBR NC,FA 
FADD 

Note: Up, to four unique Data Pad indices may be specified in one 
instruction statement o In particular, only one indexing each may 
be used for reading from Data Pad X and Y, regardless of how 
many op-codes use the data read from Data Pad» 
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B.7 FLOATING POINT MULTIPLY OP-CODE GROUP 

Purpose: Floating Point multiplies 

Op- code Function 

FMUL ml,m2 Floating MULtiply ml times m2 

MULTIPLIER OPERANDS: 

ml Multiplier-operand #1 

Choices Mesining 

FM Floating Multiplier output 

DPX< ( idx)> Data Pad X 

DPY<(idx)> Data Pad Y 

TM Table Memory 

m2 Multiplier-operand //2 

Choices Meaning 

FA Floating Adder output 

DPX (idx) Data Pad X 

DPY (idx) Data Pad Y 

MD Memory Data 

Examples: FMUL TM, MD 

FMUL DPX (AR), DPY (BI) 

FMUL 

B.8 DATA PAD X OP-CODE GROUP 

Purpose: Storing into Datsi Pad X 

Op-code Funct ion 

DPX<(idx)> <FA Store Floating Adder output into Data Pad X 

DPX<( idx )> <FM Store Floating Multiplier output into Data Pad X 

DPX<( idx )> <DB Store Data Pad Bus into Data Pad X 

DPX<( idx )> <dbe Store dbe into Data Pad X 

ABBREVIATIONS: 



dbe Data. Pad Bus enable: has the same effect as an explicit 

Data Pad Bus op-code » (see B.ll) 



Choices 


Mesming 


ZERO 


Floating zero 


adr 


adr 


DPX< (idx) > 


Data Pad X 


DPYc (idx) > 


Data Pad Y 


MD 


Memory Data 


SPFN 


S-Pad Function 


TM 


Table Memory data 
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Note: only one choice of Data Pad Bus enable may be made per 
instruction statement. 

adr An address or numeric value. Any 16~bit integer 

expression is legal. A Floating Multiplier, Memory 
Input, Memory Address, Table Memory Address, or Data 
Pad Address op-code may not be used in an • instruction 
statement where an "adr" is used. ■ 

Examples: DPX(3)<FM 

DPX(-2><SPFN 
DPX^MD 

DPX(1)<DPY (-2) 
DPX(-2)< -12 3 

B.9 DATA PAD Y OP-CODE GROUP 

Purpose: Storing into Data Pad Y 

Op-Code Function 

DPY<(idx) ><FA Store Floating Adder output into Data Pad ^ 

DPY<( idx ) ><FM Store Floating Multiplier output into Data Pad Y 

DPY<( idx ) ><DB Store Data Pad Bus into Data Pad Y. 

DPY<(idx)><dbe Store dbe into Data Pad Y 

Examples: DPY(-2)<FA 
DPY< MD 
' DPY(2)<TM 
DPY(l) <39. 

B.IO MEMORY INPUT OP-CODE GROUP 

Purpose: Writing into Main Data Memory 

Op- codes Function 

MI <FA Move Floating Adder output to the Memory Input reg. 

MI<FM Move Floating Multiplier output to the Mem. Input reg 

MI<DB Move Data Pad Bus to the Memory Input Register 

MI < dbe Move dbe to the Memory Input Register 

Note: to effect a memory write, an op-code from the memory address 
group, or an "LDMA" op-code must also be included in the instruction 
statement to supply the memory address. 

Examples: MI<FA; INCMA 

MI<DPX(3); DECMA 
MI<MD; SETMA; ADD 3,6 
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B.ll DATA PAD BUS OP-CODE GROUP 

Purpose: to explicitly enable data onto the Data Pad Bus. 

Op-codes Function 

DB=ZERO enable ZERO onto the Data Pad Bus 

DB= adr enable adr onto the Data Pad. Bus 

DB=DPX<(idx)> enable Data Pad X onto the Data pad Bus 

DB=DPY<(idx)> enable Data Pad Y onto the Data Pad Bus 

DB=&1D enable Memory Data onto the Data Pad Bus 

DB=SPFN enable S-Pad Function onto the Data Pad Bus 

DB=TM enable Table Memory data onto the Data Pad Bus 

Note: as mentioned earlier, only one data source may be enabled 
onto the Data Pad bus per instruction statement. 

Examples: DB = 37 

DB = DPX(-2) 
DB = MD 
DB ^ SPFN 

B.12 SPECIAL OPERATION OP-CODE GROUP 

Note : if an op-code from this group is chosen, an S-Pad Group 
== op-code may not be used in the same instruction statement. 

B.12. 1 SPECIAL TESTS 

Purpose: additional conditional branches 

Function 

Branch on Floating adder Less Than zero 

Branch on s-pad function Less Than zero 

Branch on Non-zero Carry bit 

Branch on Zero Carry bit 

Branch if Data pad Bus Negative 

Branch if Data pad Bus Zero 

Branch if Inverse FFT flag Non zero 

Branch if Inverse FFT flag Zero 

Branch if FLag p is 1 

Branch if FLag 1 is 1 

Branch if FLag 2 is 1 

Branch if FLag 3 is 1 

Note: if one of these tests is used along with a test from the Branch 
Group, the conditions are "or'd. " In this case, only one of the 
branch op-codes need have the target address as an operand. 

Examples: BNC ODD 

BFEQ LOOP; BELT LOOP "LESS THAN OR EQUAL TO 



Op-codes 


BFLT 


disp 


BLT 


disp 


BNC 


disp 


BZC 


disp 


BDBN 


disp 


BDBZ 


disp 


BIFN 


disp 


BIFZ 


disp 


BFLp 


disp 


BFLl 


disp 


BFL2 


disp 


BFL3 


disp 



B.12„2 SETPSA 



Purpose: jumps and subroutine jumps 
Op-codes Function 



JMP< A > 

JMPT 

JMPP 

JSR<A > 

JSRT 

JSRP 

Examples: 



adr 



adr 



JuMF' to location. adr 

JuAlP' to location whose address is in TMA 

JuMP' to location whose address is on the Panel bus 

JumP to SubRoutine at location adr 

JuraP to SubRoutine at address in Tma 

JumP to SubRoutine at address on Panel bus 



JMP LOOP + 3 
JSR FFT 
JMPA 300 



B.12.3 SETEXIT 

Purpose: to alter a subroutine return 

Function 



Op-codes 

SETEX<A> 

SETEXT 

SETEXP 



adr SET subroutine EXit to adr 

SET subroutine EXit to contents of Tma 

SET subroutine EXit to contents of Panel bus 



Example: SETEX BAD 

B.12.4 P.S. 

Purpose: read/write of Program Source Memory 



Op-codes 

RPSL *A> 
RPSF <A> 

RPSLT 
RPSFT 

RPSLP 
RPSFP 



adr 
adr 



Function 

Read Program Source Left half of location adr 

Read Program Source Floating-point number from 

location adr 

Read Program Source Left half at address in Tma 

Read Program Source Floating point number at 

address in Tma 

Read Prog. Source Left half at address on Panel bus 

Read Prog. Source Floating-point number at address 

on Panel bus 



Note: these op-codes read onto the Data Pad Bus 
Op-coaes Function 



LPSL<A> 

LPSR<A> 

LPSLT 

LPSRT 

LPSLP 

LPSRP 



adr 
adr 



Load Program Source Left half of location adr 
Load. Program Source Right half of location adr 
Load Program Source Left half pointed at by Tma 
Load Program Source Right half pointed at by Tma 
Load Prog, Src Left ■ half pointed at by Panel bus 
Load Prog. Src Right half pointed at by Panel bus 



Note: these op-codes load from the Data Pad Bus 



Example: RPSF PI 
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B.12.5 ] 


Purpose: 


Op-codes 


RPSj?<A > 


RPS1<A > 


RPS2<A > 


RPS3<A > 


RPS0T 


RPSIT 


RPS2T 


RPS3T 


WPS^<A > 


WPS1<A > 


\VPS2<A > 


\7PS3<A > 


^VPS0T 


WPSIT 


\VPS2T 


WPS3T 



PS ODD AND EVEN 

reading the host panel switches into Program Source 
memory; writing Program Source to the panel lites. 



adr 
adr 
adr 
adr 



adr 
adr 
adr 
adr 



Function 

Read Program Source 
Read Program Source 
Read Program Source 
Read Program Source 
Read Program Source 
Read Program Source 
Read Program Source 
Read Program Source 
Write Program Source 
Write Program Source 
Write Program Source 
Write Program Source 
Write Program Source 
Write Program Source 
Write Program Source 
Write Program Source 



quarter p from location adr 
quarter 1 from location adr 
quarter 2 from location adr 
quarter 3 from location adr 
quarter from address in Tma 
quarter 1 from address in Tma 
quarter 2 from address in Tma 
quarter 3 from address in Tma 
quarter into location adr 
quarter 1 into location adr 
quarter 2 into location adr 
quarter 3 into location adr 
quarter into address in Tma 
quarter 1 into address in Tma 
quarter 2 into address in Tma 
quarter 3 into address in Tma 



B.12.6 HOSTPANEL 

Purpose: Reading the host panel switches, writing to the host panel 
lites 



Op-code 

PNLLIT 

DBELIT 

DBHLIT 

DBLLIT 

SIFDB . 

SWDBE 

SWDBH 

S^TDBL 



Function 

PaNeL bus to LITes 
Data pad Bus Exponent to LITes 
Data pad Bus High mantissa to LITes 
Data pad Bus Low^ mantissa to LITes 
switches to Data pad Bus 
switches to Data pad Bus Exponent 
switches to Data pad Bus High mantissa 
switches to Data pad Bus Low mantissa 



B.12.7 Miscellaneous 



SPI^IDA 



SPin until a Main Data memory cycle Available 
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3„13 I/O OP-CODE GROUP 

^2|^ if an op-code is used from this group, a Floating Adder 
_. op-code may not be used in the same instruction statement. 

B.13.1 Load Reg, Read Reg 

Purpose: reading/writing of various internal registers 

Op-codes Function 



LDSPD 

LDMA 

LDTMA 

LDDPA 

LDSP 

LDAPS 

LDDA 



LoaD S-Pad Destination address register 

LoaD Memory Address register 

LoaD Table Memory Address register 

LoaD Data Pad Address register 

LoaD S-Pad register pointed at by spd 

LoaD AP Status register 

LoaD i/o Device Address 



Note: the above op-codes load from the Data Pad Bus 
Op-codes Function 



RPSA 

RSPD 

RMA 

RTMA 

RDPA 

RSPFN 

Rx^PS 

RDA 



Read Program Source Address 

Read S-Pad Destination register 

Read Memory Address register 

Read Table Memory Address register 

Read Data Pad Address register 

Read S-Pad FunctioN 

Read AP Status 

Read i/o Device Address 



Note: the above read onto the Panel bus 
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B.13.2 INOUT 



Purpose: Program control/ input output of data 



Op-codes 

OUT 
SPNOUT 
OUTDA 
SPOTDA 



Function 

OUTput data 
SPiN until device 
OUTput data, then 
SPin until device 
set DA to spfn 



ready, then OUTput data 

set DA to spfn 

ready, then OuTput data, then 



Note: the above write to the I/O device specified by the Device Address 
Register (DA) whatever data Is enabled onto the Data Pad Bus. 



Op- codes 

IN 

SPININ 
INDA 
SPINDA 



Function 

INput data 

SPIN until device ready, then INput data 

INput data, then set DA to spfn 

SPin until device ready, then INput data, then 

set DA to spfn 



Note: the above enable data onto the Input Bus from the I/O device 

specified by the Device Address Register (DA). To be used the 
data must be enabled onto the Data Pad Bus, and from there to a 
register or memory. An example: 

IN; DPX(2)<INBS "READ I/O DATA INTO DPX 

B.13.3 SENSE 

Purpose: Sensing an I/O device condition 



Op- codes 

SNSA 

SPINA 

SNSADA 

SPNADA 

SNS3 

SPINB 

SNSBDA 

SPNBDA 



Function 

SeNSe condition A 

SPIN on condition A 

SeNSe condition A, then set DA to spfn 

SPIN on condition A, then set DA to spfn 

SeNSe condition B 

SPIN on condition B 

SeNSe condition B, then set DA to spfn 

SPIN on condition B, then set DA to spfn 
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B. 13.4 FLAG 

Purpose: set/reset of program flags 

Op-codes Function 



SFL0 




Set Flag 


SFLl 




Set Flag 1 


SFL2 




Set Flag 2 


SFL3 




Set Flag 3 


CFLp 




Clear Flag 


CFLl 




Clear Flag 1 


CFL2 




Clear Flag 2 


CFL3 




Clear Flag 3 


B.13.5 


CONTROL 




Purpose: 


miscell 


aneous contro 


Op-code 




Functions 



HALT 
lORST 

INTEN 

INTA 

REFR 

WRTEX 

WRTMN 

SPMDAV 



HALT processor 

I/O ReSeT 

INTerrupt ENable 

INTerrupt Acknowledge 

memory REFResh synch 

enable WRiTe of E.xponent only into DPX, DPY or MI 

enable WRiTe of MaNtissa only into DPX, DPY or MI 

SPin until a Main Data memory cycle Available 
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INTENTIONALLY BLANK 
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APPENDIX C 



TABLE MEM0RY SYMB0LSi 



1. TABLE MEM0RY C0NSTANTS: 








C0NSTANT 


VALUE IN 


TABLE MEM0RY 


SYMB0L 


REPRESENTED 


TABLE MEM0RY 


ADDRESS C0CTAL; 


IZER0 


ZER0 


0^0 


4371 


I0NE 


0NE 


r.'o 


4001 


!Ty0 


TW0 


2 VQ 


4002 


I THREE 


THREE 


3V0 


4441 


IF0UR 


F0UR 


4.0 


4442 


IFIVE 


FIVE 


s.'o 


4443 


ISIX 


SIX 


6-0 


4444 


I SEVEN 


SEVEN 


7.'0 


4445 


I EIGHT 


EIGHT 


8.0 


4446 


!NIN£ 


NINE 


9.0 


4447 


I TEN 


TEN 


lOVO 


4450 


ISIXTN 


SIXTEEN 


16.*0 


4451 


!HALF 


HALF 


0.5 


4427 


I THIRD 


0NE THIRD 


0V333333333 


4430 


IF0RTH 


0NE FOURTH 


0.'25 


4431 


! FIFTH 


0NE FIFTH 


0.*2 


4432 


I SIXTH 


0NE SIXTH 


0.166666667 


4433 


I SVNTH 


3NE SEVENTH 


0V14285T143 


4434 


! EGHTH 


0NE EIGHTH 


0V125 


4435 


ININTH 


0NE NINETH 


OV 1 11 1 1 1 1 U 


443 6 


I TENTH 


0NE TENTH 


0."l 


4437 


ISXNTH 


0NE sixtei:nth 


0.0625 


4440 


ISQRT2 


SQRT<2) 


1V414213562 


4203 


ISQRT3 


SQRTC3) 


1. '732050808 


4422 


I SQRTS 


SQRTC5) 


2.236067977 


4423 


rsQTio 


SQRTCIO) 


3*162277660 


4424 


IISQT2 


[•0/SQRT<2) 


0V707106781 


4206 


IISQT3 


1V0/SQRTC3) 


0.577350269 


4452 


I 1SQT5 


r.O/SQRT<S) 


0.'447213S96 


4453 


nsaio 


IV0/SQRT<I0> 


0V3 16227766 


4454 


ICBT2 


CBRT(2) 


r.'259921050 


4417 


ICBT3 


CBRTC3) 


IV442249570 


4420 


! QDRT2 


(2*0)**l/4 


1.189207115 


4421 


IL0G2E 


L0G2CE) ~ 


r.'44269504l 


4317 


1L0G2 


L0GIOC2} 


0.301029996 


4411 


IL0GE 


L0GIO<E> 


0V434294482 


4337 


ILN2 


LN(2> 


0V693147181 


4336 


!LN3 


LNC3> 


1V098612289 


4407 


!LN10 


LN<10) 


2V302585093 


4410 


!E 


E 


2.718281828 


4403 


I INVE 


UO/E 


0.'367879441 


4404 


!ESQ 


E**2 


7.389056096 


4405 


!PI 


PI 


3.141592654 


4402 


ITV0P1 


2*PI 


6V283 185308 


4415 


UNVPI 


l.Q/PI 


0."31 8309886 


4412 


IPI2 


PI/2 


1. '570796327 


4312 


!PI4 


PI/4 


0."785398164 


4373 


! PI 180 


PI/180 


O.'O I 7453293 


4413 


IPISQ 


PI**2 


9.'869604404 


4414 


ISQTPI 


SQRTCPU 


1V772453851 


4416 


ILNPI 


LNCPI) 


1.144729886 


440 6 


! GAMMA 


GAMMA 


0V577215663 


4425 


fPHI 


PHI 


r.'61 8033939 
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ELEMENTARY FUNCTION TABLES! 





ELEMENT/LRY 


TABLE MEM0RY 


SYMB0L 


FUNCTI0M 


ADDRESS C0CTAL) 


IDIV 


DIVIDE 


4000 


ISQRT 


SQUARE R00T 


4202 


ISNCS 


S1N/C0S 


4306 


!L0G 


L0GARITHM 


4333 


I EXP 


EXP0NENT1AL 


4317 


lATAN 


ARC TAN (SENT 


4365 


3* 


SIZE 0F INSTALLED FFT 


C0SINE TABLE 


SY11B0L 


SIZE crrpiCAL) 




IFFTSZ 


2048 
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EXAMPLE OUTPUT 
from 
APAL 



D-1 



APAL 
V2.1 
PA5S I 

PASS 2 



STITLE S1NC0S 
SENTRY SIN 
SENTRY C0S 
"SINE^ C0SINE FUNCTI0N 

•• ABSTRACT 

"C0MPUTES THE FUNCTI0N SINCX) 0R C0SCX)* WHERE X IS IN 



•* DPXXCDPA) ' 
•• 


ft 


STATISTICS 


••LANGUAGE! 


AP-120B ASSEMBLER 


••equipmentj 


AP-120B 


•*ST3RAGE: 


PS - 31 L0CATI0NS 


•t 


MD - N0T AFFECTED 


w 


TM - 9 


f« 


DPX - 2 


♦• 


DPY - 2 


«• 


SP ^ N0T USED 


"SPEED: 


SIN - 4.42 US. AVERAGE C4-00 - 4.83) 


»• 


C0S - 4."75 USV AVERAGE <4.33 - S-I?)" 


'•AUTH0R: 


A.E. CHARLESW0RTH - • 


-DATEj 


WaVV 1975 


-REVIS10NX 


2.2" FEB 76 CHANGED SENTRY 


t« 


USEAGE 


•* SAMPLE CALL t 


JSR SIN* JSR C0S 


"ARGUEMENT: 


X IS IN DPXCDPA) 


"ANSWER: 


SIN<X) 0R C0SCX> IS LEFT IN DPXCDPA) 


"SCRATCH t 


DPXCO-2)* DPY<0-3) 



'N0NE 

'I. 

'2V 



- — ERR0R C0NDITI0NS 

— - ALG0RITHM - — 
IF C0SCX) IS DESIRED* C0SCX) = SIN<X+PI/2) 
X IS MULTIPLIED BY 2/PI* AND SPLIT INT0 (I + F 

WHERE I IS AN INTEGER AND F A P0SITIVS 

BETWEEN AND .9999999999... 

IF I IS 0DD* F<" Cl.O - F) 

SINCF) a A + BF*=*3 ♦ CF**5 + DF**7 + EF**9 

THE P0LYN0MIAL IS FR0M 

HART A CHANEY #3341 CPRECISI0N 8.27-5* 
RANGE T0 PI/2 
IF 1/2 IS 0DD* SINCF) IS NEGATED 



"N0TEt THE P0LYN0MIAL 
•• CAF + F**3CB •»• 



IS FACT0RED AS J 

CF**2)) + F**7CD + EF**2) 



•THE TABLE IN TABLE MEM0RY IS 

'SINTBLsO. 63661 97724 

' 0V79689 67894 6 £ -I 

0.'99999992S 

IVO 

0".' 1 5707 96318 44 E I 

• 0V15148 5129 E-3 
-V64596 37105 99 

• -V46737 6661 E-2 



2V0 
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AS F0LL0WS» 
2/PI 
C 

FRACTI0N MASK C 1000*37 
0DD SIT MASK 
A CPI/2) 
E ' 
B 
D 
NEXT 0DD BIT MASK 



004006 SINTBL SEUU ISNCS 

•*DATA PAD X: 

000000 X $EQU 

00000 1 TEMPX SEQU 1 

"DATA PAD Y: 
000000 C SEQU 

000000 AF SEQU 

000001 F SEQU I 
000001 F2 SEQU I 
000001 F3 SEQU I 



000000 



00000 I 



000002 



000003 



000004 



000003 
103000 
002000 
004312 

000003 
103000 
002000 
004306 

OOOOOl 
142000 
000400 
000000 

OOOOOl 
100000 
000000 
OOOOOl 

000000 
000124 
000000 
016001 



"C0ME HERE F0R C0SINE<X).. 
C0S: LDTMA; DBaSINTBLV4" 



DB=S INTEL; LDTMA 



FADD TM>DPXCX> 



FADD; INCTMA 



FMUL tm^fa; 
ingtma; 

BR C0MM0N 



•"FETCH"? 1/2 (A) 



FETCH 2/PI 



'D0 X*2/PI 



FETCH C 



"D0 X*2/PI 

" FETCH FRACTI0N MASK 

" G0 D0 SIN<X+PI/2) 



000005 



000006 



000007 



000010 



000003 
103000 
002000 
004306 

000000 
000000 
000000 
OOOOOl 

000000 
000000 
000400 
016401 

000000 
000000 
017000 
MOOOl 



"C0ME HERE F0R SINECX)..^ 

siNt ldtma; db^sintsl" 



INCTMA 



FMUL TM^DPXCX>; 
INCTMA 



C0MM0NS FMUL; INCTMA; 
DPYCC)<TM 



'FETCH" "2/? I 



'FETCH C 



"D0 X*2/PI 

" FETCH FRACTI0N MASK 



"FETCH 0DD BIT MASK 
" SAVE C 
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oootn 



ooouoo 

000000 
047005 
OlOOOl 



fmul; Di 

INCTMA 



smpxxtm; 



•*SAVL FRACTIki. 
" FETCH A 



;iASK 



000012 



000002 
112000 
047505 
000000 



'0H^ THE G1J3RIES 0F A FL0ATING P0INT AND... 

' WE CAN GET THE FRACTI0NAL PART 0F""A NUMBER^ 

0R 

WE CAN TEST T0 SEE IF THE INTEGER PART 0F 

A NUMBER IS 0DD... 

FAND FM^DPXCTEMPX")'; "GET F =» FRAC<2X/PI) 
DPXCTEMPXXTM " SAVE 0DD BIT MASK < 



000013 



000002 
1 12000 
140504 
000000 



FAND FM^DPXCTEMPX); 
DPX<X><FM 



SEE IF I IS 0DD 
' SAVE 2X/PI 



000014 



000001 
021000 
020540 
134000 



•*HERE WE PLUNGE AHEAD AND START THE P0LYN0MIAL^ 
*• H0PING THAT WE AREN'T IN THE 

•• SEC0ND 0R F0URTH QUADRENTS 

0DDf FMUL DPYCO^FA; ••D0 C*F 

DPYCF)<FA; •• SAVE F 

FSUB DPXCTEMPX)^FA " D0 I .0-F 



000015 



000001 
155000 
000050 
015000 



FMUL DPYCF)^DPY(F); 
FADD ZER0*2ER0 



••D0 F**2 

" PUSH 1-F 0UT 



000016 



000000 
000456 
000050 
017000 



-IF I 
It 

••THIS 
It 



IS 0DD^ THE FAND WILL PR0DUCE 1 .0 AS A RESULT* 

WHICH WE N0W TEST F0R... 
IS N0T AN INFINITE L00P 

IF I IS 0DD* AND WE C0ME THIS WAY AGAIN* 

THE SEC0ND TIME WE WILL BE TESTING THE RESULT 

0F ADDING 0.0 + 0.0# WHICH WILL 

ALWAYS BE 2ER0 

FMUL TM^DPYCF); "D0 A*F 

BFNE 0DD ■ " BRANCH BACK IF I IS 



000017 



000000 
000000 
000050 
011000 



"N0W WE ARE INT0 THE F0LYN0MIAL F0R G00D... 
FMUL FM* DPYCF) -D0 CF *"F" 



000020 



000000 
000000 
030050 
131001 



FMUL FM*DPY<F); 
DPYCF2XFM; " 
INCTMA 



"D0 F**3 

" SAVE F**2 

" FETCH E 



000021 



000000 
000000 
030050 
115001 



FMUL DPYCF2)*DPY<F2); "00 F*^4 
DPYCAFXFM; •• SAVE AF 

INCTMA ^p^L D-4 '' ^^^^^ ^ 



000022 



000023 



000024 



000025 



000026 



000000 
000000 
140055 
017001 

000001 
142000 
030500 
130000 

000001 
100000 
047055 
011000 

000001 
U2000 
000550 
014001 

000001 
100000 
000000 
010000 



fmul tm^dfycf2); 
dpxctempxxfm; 

INCTMA 



fadd tm^dpxctempx); 
fmul; 
dpycf3xfm 



fmul fm^dpy<f3); 
dpxctempxxtm; 

FADD 



FMUL DPYCF3)^FA; 

FADD FM^DPXCTEMPX>; 
INCTMA 



fmul; FADD 



••D0 E * F**2 
•• SAVE CF2 
•♦ FETCH D 



•D0 B+CF2 

' SAVE F**3 



••D0 F**7 
" SAVE D 



-D0 F**3 * CB+CF2) 

" DO D + EF2 

•• FETCH NEXT 0DD BIT 



'WAIT 



000027 



000030 



000031 



000032 



000033 



000034 



000002 
142000 
000400 
010000 

000001 
113000 
000040 
010000 

00000 1 
100000 
000000 
OIOOOO 

000001 
111463 
000000 
000000 

OOOOOl 
lOOOOO 
000000 
000000 

000000 
000340 
100004 
000000 



'HERE WE SEE IF M0D<I/2^2) IS 1 0R 

FMUL FM^FA; "DO F**7'*'=<«"rD+EF2> 

FAND TM^DPXCX) »• SEE IF 1/2 IS 0DD 



FADD FM^DPYCAF); FMUL ♦•D0 AF + CBF3>CF5) 



D0NEX 



FMULJ FADD 



FADD FM#FA; 
BFNE NEC 



FADD 



DPXCXXFA; RETURN 



'WAIT 



♦*D0 <AF+BF3+CF5) + <DF7+ 
*• SEE IF VE NEED T0 N 



'WAIT 



'ST0RE ANSWER AND RETU 



000035 



OOOOOl 
lOOOOO 
000000 
000000 



"C0ME HERE IF WE NEED T0 NEGATE THE ANSWER.. •• 
NEGj FADD • "WAIT 

APAL D-5 



000036 



000001 
051115 
000000 
000000 



FSUB 

BR 



D0NE 



"0 
It 



- ANSWER 
■G0 FINISH 



SEND 



4t^:#:4t 



ERR0RS **'lt* 



SYMB0L 


VALUE 


SINTBL 


004306 


X 


000000 


TEMPX 


000001 


C 


000000 


A7 


000000 


F 


OOOOOl 


F2 


000001 


F3 


OOOOOl 


C0S 


000000 ENT 


SIN 


000005 ENT 


C0MM0N 


000010 


0DD 


000014 


D0NE 


000033 


NEG 


000035 
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SECTION 1 
INTRODUCTION 



1.1 INTRODUCTION 

APLINK links separate object modules produced by APAL 
together into a single load module for execution by the AP-120B 
hardware or the simulator. 

The user can separately code and assemble a main line 
program and the associated subroutines, and later link them 
together for execution, APLINK serves this purpose be per- 
forming the following tasks: 

1. Relocating each object module and assigning absolute 
addresses, 

2. Linking the modules together by correllating global 
entry symbols defined in one module with external symbols 
referenced in another module. 

3. Selectively loading modules from program library p 

4. Optionally producing a load map showing the layout 
of the load module. 



APLINK is written in Fortran IV and requires roughly 
lOK of available memory in which to operate. 
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SECTION 3 
OPERATING PROCEDURE 



Program modules are linked interactively via a dialogue 
between the user and APLINK. The user enters a series of com- 
mands which direct the linking process. 

When execution begins, APLINK outputs: 

APLINK 

* ■ 

The "###" is the version number of APLINK. The asterisk 
("*") indicates that the program is ready to accept commands. 
After each user command, an "*" is typed when that command 
has been completed, and APAL is ready for a new command. An 
illegal command will, cause a "?" to be output. 

To load his relocatable programs and prepare them for 
execution, the user would normally follow the procedure out- 
lined below: 

1. Using the "L" (load) command, load the file or files 
containing the desired main program, required subroutines, and 
library subprograms, if any. If a fatal error occurs during 
this step, the user must reinitialize using the "R" command, 
and repeat this step. 

2. Using the "U" (undefined) command, check to see if 
any global symbols are still undefined. If nothing is out- 
put from this command, continue to step 3. If any symbols 
are output, it usually means that there was an error in one or 
more of the programs loaded, or that the loading sequence was 
wrong. In these cases, the user should correct the error and 
restart the loading operation from step 1. 

3. Obtain the memory limits of the loaded program and/or 
a loader map, by using the "M" (memory) or "S" (symbols) com- 
mand. 

4. Complete and output the load module by using the "E" 
(end) or "A" command. Note the values of HIGH and START as 
well as the possible presence of any remaining undefined sym- 
bols. 

5. Return to the operating system with an "X" (exit) 
command. 

The individual APLINK commands are described in the fol- 
lowing sub-sections, and a complete example loading session 
is given in section 3. 12. 

The three following abbreviations are used in the fol- 
lowing sub-sections: 
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Abbreviations Meaning 

filename A user specified input or out- 

put file. The "Filename" fol- 
lows whatever naming conventions 
exist for the particular host 
computer operating systems. 

+ Carriage Return 
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^ Indicates characters output by 

the programo 

. The examples given are illustrative only, as file and 
I/O device names will 'vary from system to system. 



3,1 LOAD, "L" 

To load a program module, or a program library enter: 

filename + , 

where "filename" is the name, of the file containing the 
desired program or library. Example: 

*_ L 4- 

FFTo RB ^ 
Loads a program from file 
FFTo RBo 

3o2 SYMBOLS, "S" 

To output the global (external and entry) symbols enter: 

S + 
filename 4- 

where "filename" is the name of the file (or I/O device) to 
receive the symbol listing o The output of the loader map is 
as follows: 

HIGH = aaaaaa 

SYMBOL TABLE 

SYMBOL VALUE 

ssssss nnnnnn U 



where: 

aaaaaa Highest program address so far loaded^ 

Normally, the next- program will be loaded 
starting at location HIGH+1. 

ssssss symbol name 
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nnnnnn symbol value; if undefined, the last 

location loaded which referenced this 
symbol. 

U If present indicates the symbol is as yet 

undefinedo 

An example command: 

LP:4' 
Dumps the loader symbol table onto the line printer, 

3.3 UNDEFINED. "U" 

To output to the console any presently undefined global 
symbols enter: 

• U + 

f ilename-i- 

where "filename" is the file to receive the list of un- 
defined symbolSo The list format is: 

ssssss nnnnnn 

where "ssssss" is the symbol name and "nnnnnn" is the 
location of the last program instruction which referenced 
the symbol. An example command: 

*U 4- 
TP:-!- 

Prints the names of any undefined symbols on the teletype, 

3.4 NEXT BASE, "B" 

To specify a base address at v/hich to load the next program, 
enter: 

B -^ 
loc 4- 

where "loc" is the location specified. An example: 

*B -J- 
200 4- 

Sets the next location loaded to location 200, 
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3.5 RESET, "R" 

To reset APLINK, enter: 

R^ 

This reinitializes the program to its initial state. 
The symbol table is cleared, any previously loaded programs 
are disregarded, and the next location is set to zero. This 
command must be given following a fatal error. 

3.6 FORCE, "F" 

To force loading of a program module from a library, 
enter : 

F-l- 
name^ 

where "name" is the name of the symbol to be forced. This 
command enters "name" into the symbol table as an external 
symbol. This will cause the loading of a library program 
which has "name" as an entry symbol. An example: 

*_F4' 
DOTPRD+ 

Forces the loading of any program defining symbol "DOTPRD" 
from any subsequently loaded library file. 

3.7 MEMORY, "M" 

To get the address of the highest program source memory 
location so far loaded, enter: 

M+ .. 

The information is printed as follows: 

HIGH = aaaaaa 

where "aaaaaa" is the highest address so far loaded, and 
"bbbbbb" if present, is the load module starting address. 

3.8 END, "E" 

To end a load module and output the completed load 
module for use with APDEBUG, enter: 

Ef 
filename^- 

where "filename" is the name of the file to receive the 
loader output . The output is a "core image" which can be 
loaded by APDEBUG and executed by either the simulator APSIM, 
or the hardware. 
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APLINK outputs the following information to the user 
console : 

HIGH = aaaaaa 

where "aaaaaa" is the highest program address loaded. If 
any symbols were still undefined, APLINK outputs: 

### UNDEFINED SYMBOLS 

where "###" is the number still undefined. A value of p 
was used in linking these undefined symbols, 

SAVE 
Stores the completed load module into file "SAVE". 

The "E" (or "A") command causes links between global 
symbols in the completed load module to be frozen. The load 
module can be output again (with another "E" or "A") but no 
further links can be added (with an "L"). 

To work on another load mode, a reset ("R") command must 
be given to clear the linker. 

3.9 END with ASSEMBLY CODE, "A" 

To end a load module and output the completed load module 
as host computer assembly code (for use with APEX), enter: 

A-l- 
filenames 

where "filename" is the name of the file to receive the loader 
output. This output is a short host assembly language sub- 
routine, which is the linkage between host computer Fortran 
"CALL'S" and the AP-120B executive. The AP-120B code from the 
load module follows the host subroutine as assembly language 
data statements. 

Information concerning the highest address loaded into, and 
any undefined symbols, are output to the user console as des- 
cribed above for the "E" command. 

3.10 NUMBER RADIX, "N" 



To set the radix for numeric input/output to and from the 
user console, enter: 

N + 
radix-!- 

where the radix is either 8 (for octal), 10 (for decimal), or 
16 ( for hexadecimal ) . The default radix for user I/O is set 
to either of these choices at installation. 
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3.11 EXIT. "X" 

To exit to the operating system, enter: 

X4- 

Note: X does not cause any output. An "E" or "A" must 
be used to output a load module. 
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3.12 AN EXAMPLE LOADING SESSION 



>>RUN APLINK 

APLINK 

REV 1 

*L 

BENCH : KB 

APLIB 

*S 

/TT^ 

HIGH=000116 



SYMBOL TABLE 

SYMBOL VALUE 
BENCH 000000 
DIV 000063 



*E 

TEMP 

HIGH=000116 

*X 

STOP 

>> 



The user runs APLINK. He then loads his program, in file 
BENCH :RB. Since Bench uses the scalar divide subroutine, he 
links in the library of AP-120B subroutines, APLIB. APLINK 
extracts from the library any subroutines needed by BENCH, in 
this case DIV. The user prints out the loader map, and then 
ends with an "End" command, putting the linked-up code into 
file TEMP. 

To debug the program, the user would run APSIM, where he 
could execute the code put into TEMP. 
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Another example loading session. 



RUN APLINK 


APLINK 




REV 1 




*F 




POLAR 




*L 




APLIB 




*S 




/TT0 




HIGH=000166 


SYMBOL 


TABLE' 


SYMBOL 


VALUE 


POLAR 


-000000 


SQRT 


000133 


ATN2 


000023 


ATAN 


000035 


DIV 


000077 


*A 




TEMP 




HIGH=000166 


*X 




STOP 





> > 



The user runs APLINK. He wants to install subroutine 
POLAR into his computer operating system, so that he can 
CALL POLAR from Fortran. The "F" (force) command sets up 
APLINK so that it will load in POLAR from the library APLIB. 
The loader map shows that POLAR used subroutines SQRT (square 
root), ATN2 and ATAN (arc-tangent), and DIV (divide). The 
"A" command stores the linked-up code as host assembly language 
in file TEMP. 

The host assembly code in TEMP is assembled by the host 
computer assembler and the resulting relocatable binary saved 
where it can be linked with Fortran programs. 
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SECTION 4 
ERROR MESSAGES 

Any deviation from the prescribed command syntax will 
cause APLINK to output a "?" to the user console. The 
illegal command is ignored, and APLINK outputs a "*" to indi- 
cate its readiness to accept a new command. 

If a specified "FILENAME" cannot be found, or is other- 
wise unavailable for use the message: 

FILE NOT FOUND! ! ! 

is outputted and the command is ignored. 

The specific error messages outputted by APLINK are the result 
of loading errors detected during execution of an "L" (load) 
command. There are two classes of loading errors: 

F - Fatal. Reinitialization of the loader (the "R" 
command) is required before loading can continue. 

W - Warning. An advisory, message indicating a non- 
error. 

Any fatal error detected during loading will cause immediate 
termination of the "L" (load) command following the error message. 
If the user attempts to execute^ another "L"^ command, the program 
will output the message: 

RESET! ! ! 

and ignore the command. After the user reinitializes the loader 
("R" command) he must reload any programs loaded up to that point. 

Following are the error messages, along with notes of 
explanation for each: 

F SYMBOL TABLE OVERFLOW 

The loader symbol table is full. The only recourse is to 
recompile APLINK with a longer symbol table size. 

F PROGRAM MEMORY OVERFLOW nnnnnn 

An attempt was made to load past the upper limit of Program 
Source Memory. The load module is too^ large to fit in pro- 
gram memory, "nnnnnn" is the memory location involved. 

F OVERWRITE nnnnnn 

An attempt was made to overwrite a previously loaded 
program memory location. The loader does not permit any 
given program memory location to be loaded more than once, 
"nnnnnn" is the program memory location involved. 

F ILLEGAL BLOCK TYPE nnnnnn 

An illegal relocatable object code block type was encountered. 
The File specified does not contain legal object code. "nnnnnn' 
is the illegal block type, as read from the block header in 
question . 
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W MULTIPLE ENTRY 

An $ENTRY symbol having the same name as one already 
defined was encountered during a loado The name and value 
of the offending symbol is output to the console: 

ssssss nnnnnn . 

• where "ssssss" is the symbol name and "nnnnnn" the symbol 

value. The loader proceeds by ignoring the latest definition. 

W MISSING OR IMPROPER ENTRY 

The user attempted to put out host assembly code (an "A" command) 
from a load module v/hich either 1) did not have any entry points 
(defined entry global symbols), or 2) the first entry point loaded 
did not have an S-Pad parameter count . 
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APPENDIX A 
SUMMARY OF APLINK COMMANDS 



These abbreviations are used: 
Symbol Meaning 



filename 



loc 
name 



Carriage Return 

Name of a file, as appropriate for the 

host operating system being used. 

A location, in octal or hex as appropriate 
A symbol name, 6 characters or less. 



Command 

Li . 

f ilenamei 

34- 

f ilename•^' 
U4■ 
f ilename^ 

Bi 
loci 

Ri 
name-J- 



M^ 



£4- 

f ilename■^' 
A4■ 
f ilename+ 



N4- 
number-j- 



Effect 

Load the program in file FILENAME, link 
with previously loaded programs. 

Output the loader symbol table to file 
FILENAME. 

Output any undefined symbols to file 
FILENAME. 

Set APLINK to load the next program at 
location LOC, 

Reset the loader. 

Force the loading of a program defining symbol 
Name from any subsequent program libraries 
loaded. 

Output the. highest program memory location 
used. 

End the loading session. Store the resulting 
load module into file FILENAME. 

End the loading session. Output host computer 
assembly code for use with APEX into file 
FILENAME. 

Set the Radix for numeric user console I/O 
to either 8, 10, or 16. 

Exit to the operating system. 
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APPENDIX B 
RELOCATABLE OBJECT CODE BLOCK TYPES 



Unlike most relocatable binary, the relocatable object 
code produced by APAI. consists of numbers written as decimal 
integer characterSo Those were output (and readable) by For- 
tran formatted I/O statements. 

An advantage is that relocatable library files may be 
edited with an ordinary text editor. This makes unneccessary 
the need for a special-purpose Librarian or Library File 
Editor 

The 
blocks, 
present , 
thesis) o 



relocatable object code is divided into a series of 
The order in which blocks appear, if each type is 
is as follows: (the block type number is in paren- 



lo Title Blocks (3) 

2, Entry Blocks (4) 

3o Code Blocks (^) 

4o External Blocks (5) 

5. End Block (1) 

An object module contains at least a Title Block and a 
Start/End Block, The presence of one or more of the other block 
types will depend upon the particular program. 

The first line of each block is a block header, which 
contains four seven-digit numbers: 

1, Block type numbers 

2, Number of items in the block 

3, Initial address, if relevant 
4 „ Unused 



In addition, the block header is flagged with '"i«**" to 
aid in identification of blocks. 

Each block type is aescribed below, in numeric order 
by block type numbers 

B,l CODE BLOCK {q>) 



LINE 

1 
2 



CONTENTS ; 
Bits 0-15 



count 
Bits 16-31 



address 
Bits 32-47 

IT 



Bits 48-63 



Count 



Each code line contains a 64-bit piogram source word 
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B.2 END BLOCK (1) 



LINE CONTENTS 
1 

B. 3 TITLE BLOCK (3) 





LINE CONTENTS 



1 

B.4 ENTRY SYMBOL BLOCK (4) 


1 




LINE 


1 
2 



CONTENTS 



name 



count 
value 











0.*** 



0***TITLE 



0*** 

ft S~Pad parameters 



count 

B.5 EXTERNAL SYMBOL BLOCK (5) 



LINE 


CONTENTS 







5 


count 


1 


name 


link 


2 


fT 


If 


3 


tf 


ff 







0*** 



count " 

B.6 LIBRARY START BLOCK (6) 



LINE 




CONTENTS 
6 



B. 7 LIBRARY END BLOCK ( 7) 



LINE 




CONTENTS 
7 



















0*** 



0*** 
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An example relocatable object module, from the Dot Product program 



3. 


1* 


0. 


o.***titleI 


D0TPR 


0. 




4* 


1. 


0. 


0**m* "L 


D0TPR 


0. 


6. 


J 


0« 


9. 


0. 


0**^^ -> 


16384. 


0. 


0. 


48 . / 


I 6520 ♦ 


0. 


0. 


48. 


596. 


0. 


18948. 


0. 


8257. 


55808. 


0. 


48. y 


661 . 


32768. 


256. 


5888. 


8392. 


403. 


0. 


4144. 


0. 


0. 


18948. 


4096. 


8257. 


3 7453. 


0. 


48. 


16656. 


224. 


0. 


112. J 


I. 


0. 


0. 


Qm*:¥* T 



Title block 
Entry block 



Code block 



End block 



The Title block contains the title of the program, DOTPR 

The Entry block has the name of the entry point, DOTPR; its 
relative address, ^; and the number of expected S-Pad parameters, 6 

The Code block contains the 9 AP-120B program words in DOTPR, each 
as four 16-bit quarters of a 64-bit program word. 

The End block tells APLINK that it has reached the end of the 
program. 
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Example output from APLINK produced by an "E" (End) command from 
the Dot Product program. APDBUG would load this output into either 
the simulated AP-120B (APSIM),or the actual hardware, for debugging 



number of AP-120B program words 



word rtl 



word ^r2 



word r'rS 



word r/4 



word #5 



word n-e 



word #7 



word #8 



word rr9 
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Example host assembly code produced by APLINK from the Dot 
Product program. 



D0TPR t 



•TITL D0TPR 

•ENT D0TPR 

.'EXTD .APEX 

-1 

JSRi .APEX 

6* 

9* 

16384.' 
0." 
0. 
48* 
16520. 
0." 
0. 
48. 
596. 
0.' 
18948. 
0. 
8257.' 
-9728. 
0." 
48.' 
661.' 
-32768." 
256. 
5888V 
8392." 
403." 
0. 
4144. 
0." 
0. 
18948.' 
4096. 
8257. 
-28083. 
0.' 
48." 
16656. 
224. 
0." 
112. 
.END 



This is the appropriate host computer 
assembly code for use with Data 
General Corporation Fortran IV 
on Nova or Eclipse computers. 

A CALL DQTPR in Fortran ends up 
at location "DOTPR" in the Nova, 
which does a subroutine jump to 
APEX, the AP-120B executive. 

If this is the first CALL of DOTPR, 
then APEX will load the AP-120B 
program words for DOTPR from Nova 
memory into AP-120B Program Memory. 

The "6" following the JSR@ .APEX 
is the number of arguements expected 
in the Fortran CALL. "9" is the 
number of AP-120B program words in 
DOTPR. "0" is the re;ative starting 
address of DOTPR. 

Following these three parameters 
is the nine AP-120B program words 
in DOTPR, 16-bits at a time. 



For each particular host computer, 
the exact form of the host computer 
assembly language is different, but 
the content is the same. 
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APPENDIX A 
AP-120B SUMMARY OF DEBUG COMMANDS 



Abbreviations used below: 

Symbol Meaning 

•J- Carriage Return . 

loc An integer location number 

count An integer count 

val An integer value 

fpn A floating-point number in form accept- 
able to FORTRAN 

mem The name of an AP-120B internal memory 

reg. The name of an AP-120B internal register 

Debug types a "*" when ready for further action. 
A "?" is typed when a command is not understood. 

A.l Program Execution Commands 

Bk Breakpoint. Delete the last breakpoint 

mem+ and set a new breakpoint at location LOC 

100 4- of memory MEM. MEM must be PS, MD, or TM. 

Dl- Delete.. Delete the current breakpoint 

L-^ List. List the current breakpoint 

Qi Set the continue counter to (COUNT), 

count 

S^- Step. If (VAL) is not zero place the 

val^- AP-120B in step mode. 

14- Initialize. If VAL is not zero, reset the 

val^- AP-120B before program execution is 

resumed next 

R4- Run. Begin program execution at Program 

loc4- Source location LOC 

Pi Proceed. Begin instruction execution at 

the Program Source location pointed to by 
the AP-120B (PSA) (Program Source Address) 
Register . 

X4- Exit to the operating system 
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A. 2 Register Examination/Modification Commands 

E+ Examine register. Print out the contents of 

reg^ AP-120B register REG 

E^- Examine memory. Pring out the contents of 

mem -^ AP-120B memory MEM, location LOG 

loc 4c 

• 4- Re-examine the currently open register or 

memory location (the last location examined) 

+ 4- Examine the next higher sequestial memory location 
of the memory that is currently open 

- 4- Examine the next lower sequential memory location 
of the memory that is currently open 

F + Floating Point Flag, affects the input /output of 
val + 38-bit wide registers and memory locations. 

VAL=0: 3 integers (Exponent, High Mantissa, Low Mantissa); 

VALt^O: floating-point 

V 4- Program vSource field value flag, affects input/output 
val 4- of program source memory location. 

VAL=0: 4 integers (the four 16-bit quarters 

of PS) 
VALt^O: Decode into the 24 instruction word field 
values. 

C 4- Change. Change the contents of the currently open 

val 4- register or memory location to VAL. The format 

of VAL depends on the width of the current open 

locations as follows: 

16-bit wide registers: an integer of the current radix. 

38-bit wide registers: 

F=0; Val4' three integers in the current radix 

VAL4' thich represent the exponent, high 

VAL4' mantissa, and low mantissa 

Yf(p\ FPN4' a floating point number legal to Fortran 

64-bit wide registers: 

V=0 VAL4' four integers in the current radix 

VAL4' which are the four quarters of an AP-120B 

VAL4- program word 

VAL4- 

Vt^O: FIELD4' FIELD is the name of the instruction 
VAL 4- field to be changes, VAL is the new 
integer value . 
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VAL-i- 



Number radix. Set the radix for integer user 
I/O to VAL, which must be 8 (for octal), 10 (for 
decimal), or 16 (for hexadecimal). 



04- 

VAL + 



Offset. Sets the base address to which Program 
Source Memory addresses are relative (for user I/O) 

Zero. Zero out all AP-120B memories and registers. 



A. 3 Memory Load/Dump Commands 



Y-t- 

MEM-i- 

LOC^ 

filenames- 



Yank. Load memory MEM starting at location 
LOG from an external data FILENAME. 
MEM can be PS, MD, OR TM. 



MEM+ 
STARTS 
STOPS' 
file names- 



Write. Dump memory MEM starting at location 

(START) and'~ending at location (STOP) to 
external data FILENAME. 
MEM can be PS, MD, or TM. 
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Ao4o_Acc ess able Functional Unit 



AP-120B Functional Units that may be examined or changed 
using DEBUG: 



Memories : 

PS Program Source Memory 

MD Main Data Memory 

TM Table Memory 

DPX Data Pad X 

DPY Data Pad Y 

lODEV I/O Devices 

SP S-Pad Registers 

SRS Subroutine Return Stack* 



Contents : 

64-bit instruction word 
38-bit floating-point 



16-bit integer 



Registers 



Contents 



MA 

TMA 

DP A 

PSA 

SPD 

STAT. 

DA 

SWCH 

LGTS 

MDR 

TMR 

MI 

DPBS 

INBS 

PNBS 

SPFN 

FLAG 

SRA 

Al 

A2 

FA 

Ml 

M2 

FM 



Memory Address 

Table Memory Address 

Data Pad Address 

Program Source Address 

S-Pad Destination Address 

AP-120B Internal Status Register 

I/O Divice Address 

Panel Switch Register 

Panel Lights Registerr 

Memory Read Data Buffer* 

Table Memory Data Buffer* 

Memory Input Register* 

Data Pad Bus* 

Input Bus* 

Panel Bus* 

S-Pad Function 

Program flags* 

Subroutine Return Stack Address* 

Floating Adder Input Reg. #1* 

Floating Adder Input Reg, #2* 

Floating Adder Output* 

Floating Multiplier Input Reg 

Floating Multiplier Input Reg 

Floating Multiplier Output* 



16-bit 



38-bit 



16-bit 

rt 



38-bit 



rt 1* 

#2* 



integer 



floating point 



integer 



floating point 



*Accesable only when using the AP-120B Simulator 
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A. 5 Program Word Fields 



Fields within an instruction word that may be examined or 
changed by name : 

Name Program Word Bits 

D 

SOP 1-3 

SH 4-5 

SPS 6-9 

SPD 10-13 

FADD 14-16 

Al 17-19 

A2 20-22 

COND 23-26 

DlSP 27-31 

DPX 32-33 

DPY 34-35 

DPBS 36-38 

XR 39-41 

YR 42-44 

XW 45-47 

YW , 48-50 

FM 51 

Ml 52-53 

.M2 54-55, 
MI . 56-57 

MA 58-59 

DPA 60-61 

TMA 62-63 



SOPl 6-9 

SPEC 6-9 

STST 10-13 

HPNL 10-13 

SPSA 10-13 

PSEV 10-13 

PSOD 10-13 

PS 10-13 

SEXT 10-13 

FADl 17-19 

10 17-19 

LREG 20-22 

RREG 20-22 

lOUT 20-22 
SNSE : ' 20-22 

FLAG 20-22 

CONT 20-22 
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